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i. ABSTRACT 


THE RPO4/S/6 DUAL CONTROLLER LOGIC TEST PERFORMS A SERIES OF 
fo WHICH V VERIFY THAT THE RPOY /3/% ual CONTROLLER LOGIC 
FUNCTIONING PRO OPERL ONLY THE CONTROL LOGIC IS TESTED 
wuts PROGRAM bare LING IN THE DUAL CONTROLLER MODE 
i NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
CONTROLLER LOGIC TO BE TESTED FROM ONE PDP-11/RH11 OR RH70. 


THIS PROGRAM IS THE FIRST PART OF THE DUAL CONTROLLER OPTION 
LOGIC TEST. ALL OF THE DUAL CONTROLLER OPTION LOGIC, EXCEPT 


THE LOGIC ASSOCIATED WITH THE UNLOAD COMMAND AND THE CONTROLLER 
SELECT SWITCH, IS TESTED SY THIS PROGRAM. 


é. REQUIREMENTS 


é.1 EQUIPMENT 
POP-11 PROCESSOR 
16K OF MEMORY 
conve OR KW11-P CLOCK 


RH11 OR RH70 WITH AN RPO4/S/6 
RPO4/S/6 DUAL CONTROLLER OPTION TEST CABLE 


2.2 PRELIMINARY PROGRAMS 


RPO4/S/6 DISKLESS CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJG) 
PART @ (MAINDEC-11-DZRJH) 


RPO4/S/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJI) 
PART 2 (MAINDEC-11-DZRJJ) 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH CON (PORT). 


2.3 OTHER PROGRAMS 
A. THE OPERATION OF THE UNLOAD COMMAND AND THE OPERATION 


-OF "CONTROLLER SELECT’ SWITCH ARE TESTED BY THE 
st DUAL CONTROLLER LOGIC TEST, PART e (MAINDEC-11- 
ON IS 


SIRES RRR eeeees f 


Esme 


B. a OPERATION OF THE DUAL CONTROLLER OPTION I 
ESTED BY THE RPO4/S/6 MULTIDRIVE EXERCISER PROGRAM 
(MAINDEC-11-D2RJD). 
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3. LOADING PROCEDURES 
THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 
LOADER _OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED ’XXDP’ LOADER. THE PROGRAM MAY NOT 
BE INCLUDED IN AN ’XXDP’ CHAIN. 
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%. STARTING PROCEDURES 


4.1 STARTING ADDRESSES 


A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
oO (8). aie AT THIS ADDRESS ALLOWS THE OPERATOR 


iD- LL-DZRIE-A, DUAL CONTRLR LOGIC TEST - PART 1 MACY11 27(1006) O2-NOV-76 18:42 PAGE 4 
DZRJEAR.C 8:49 
(OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 


B. THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 
167 USE THE CURRENT DRIVE (DCL) ADDRESS. 


C. THE PROGRAM CAN BE STARTED AT LOCATION 210 (8) TO ALLOW THE 
ADDRESS OF THE RH11 OR RH70 TO BE CHANGED. 


4.2 UNIBUS & VECTOR ADDRESSES 
THE PROGRAM Spy THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 


THESE ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
FROM ANY OF THE STARTING ADDRESSES. } 
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MEMORY 
LOCATION CONTENTS FUNCTION 
} S etentiibiadiendinaetnaediaiiane Keer Se wee Soudleietiietinindiietcciiendieel 
1142 177560 TTY KEYBOARD STATUS REG 
1144 177562 TTY KEYBORRD BUFFER REG 
! tise Pree TTY PRINTER BUFFER REG 
1210 1 KWL1-P OT BT Ue REE 
lele 172542 KUI1-B COUNTER 
sic 1 KWL1-P VECTOR ADDRESS 
1216 177546 KWll-L STATUS REGISTER 
1220 100 KWll-L VECTOR ADDRESS 


4.3 OPERATOR ACTION 


A. CONNECT THE DUAL CONTROLLER TEST Cane FETED Reo 
& BUS B ON THE DRIVE BEING TEST (SEE SECTION 5.4) 
OAD THE PROGRAM INTO MEMORY IN PROCESSOR CONTROLLING 
T’ 


TING. 
CT’ SWITCH ON THE DRIVE TO BE 
TECTED ss THE *A/B’ POSITION. CYCLE THE 
LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 
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201 INTO THE SWITCH REGISTER (OR THE *SOFTWARE’ SWITCH REGISTER, 
cos REFER TO O Ree aon §.2). 

E. PRESS STA 

204 F. ENTER THE DRIVE NUMBER. (THIS MUST BE THE NUMBER DISPLAYED 
20S BY THE DRIVE, IF apy > OR THE NUMBER OF THE ADDRESS PLUG IF 
206 THE DRIVE IS'’AN RP 
207 . ENTER THE NUMBER OF The” Test TO BE RUN. ‘’CARRIAGE RETURN’ 
208 OR_’O’ WILL ae ALL TESTS.) 
209 H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 


210 FROM LOCATION 204. 
212 

213 

el S. OPERATING PROCEDURES 

216 

elz 5.1 OPERATIONAL SWITCH SETTINGS 

219 WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
eco ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW< it ba -HALT ON ERROR 
SW<14 --LOOP ON TEST 
SWpel, .- INHIBIT ERROR TYPEOUTS 
SW<11>=1.. INHIBIT TEST ITERATIONS 
SW<10>=1...RING TTY ON ERROR 
SW<09>=1...LOOP ON 

5.2 *SOFTWARE’ SWITCH REGISTER 


F THE PROGRAM IS BEING RUN ON A_SWITCHLESS PROCESSOR (I.E. AN 11734) 
a4 PROGRAM WILL i THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A ’SOFTWARE*® SWITCH REGISTER. THE 
S LOCATED AT LOCATION 176 (8). THE 
OF THE °SOF 8 SarTcHes ARE ROLLED A 
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EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWI 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRE 
*CONTROL U’ FUNCT MAY BE USED TO CORRECT TYP 
DURING SWITCH . 


SORS WITH SWITCH ee SM THE °SOF 
IF PROGRAM FINDS SW 


MAY BE USED. 6 
POSITION, ALL SWITCH REGISTER REFERENCES WILL BE 
* REGISTER AND THE PROC S DESCRIBED ABOVE MUST 


TCH REGISTER 
D., "RUBOUT’ AND 


w- 


WARE’ SWITCH 
IN THE 
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5.3. ‘TEST SELECTION 


525 

259 INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 
260 TEST NUMBER * SSAGE. NY TEST ER can BE 

See SOTUBHC CRS (CR) ON st r Me cute)” ; ee SET 
ees TO ALLOW a aa FS ce ie bebe CtED’ “tas 

265 TO RUN ALL TESTS IN SEQUENCE apf NTER aE TTHER A ’O’ FOLLOWED 
265 BY A CARRIAGE RETURN OR A CARR URN BY ITSELF. THE 
eb PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 

265 THE *RUBOUT KEY’ (RO) CAN BE USED TO DELET THE LAST 
270 CHARACTER ENTERED. reneeGeSeIVELY STRIKING an 

27 HaRacT ERS HAVE 


OUS C 
Na a 


THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 
"CONTROL U’ (TU). 


5.4 TEST CABLE CONNECTION 


TO TEST THE RPOY/S/6 DUAL CONTROLLER OPTION WITH THIS PROGRAM, 
A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
B TOGETHER AT uy 3 DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT O OF T UNIT SELECT LINES IS COMPLEMENTED 


aes 


pROGR A ATLL, TYPEOUT THE APPARENT ADDRESSES OF BOTH 
T WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


 Lbddebtittttttibtdtedbdibbitcetdteitt pete este tS 
# ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS * 
: IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE : 
Tiiritiiitiiittitrtitttttittiiiitititittttitetittiittitss 


THE TEST Cae CONNECTION TO THE DRIVE UNDER TEST WILL 

DEPEND ON WHICH PROCESSOR/RH11 IS TO TEST THE ave, IF 

TE DRIVE JS 10 Ge Tesrk BY THE PROCE N_PORT A, 

THE TEST C a CONNECTED FROM ’BUS A OUT’ TO 'BUS'B IN’. 
STO BE TESTED BY THE PORT B PROCESSOR, THE 

EST CABLE IS CONNECTED FROM *BUS B OLT’ TO "BUS A IA’. 


WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 
& 
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SR 
B ARE ASSERTED IN THE SAME BIT POSITION 
ION SUMMARY REGISTER) IS READ. THE ATTENTION 
NED BY THE ADDRESS OF THE DRIVE 
THE ATTENTION BIT THAT THE DRIVE IS THE 
INCLUSIVE _’OR’ OF THE PORT A & PORT B ATTENTION Bits. BECAUSE 
OF THIS, THE Pane LOOKS AT ONLY THE ATTENTION BIT IN 
*RPDS’ (DRIVE STA Ye eCteTER? TO DETERMINE THE STATE 
a OF THE SELECTED PORTS: ATTENTION BIT. 
322 
323 oa 


WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE 1S 
CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
TO. THE E ERROR WILL ILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 


A. AN ERROR MESSAGE 
B. & DATA HEADER LINE 
C. A DATA LINE CONTAINING: 
1. THE TEST NUMBER 
&. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL WAS MADE 
3. CONTENTS OF THE APPROPIATE REGISTERS 


v. MISCELLANEOUS 


7.1 RESTRICTIONS 

i apn THIS erase eabirfowety MUST T HAVE yETTHER A KULI-P 
Kae THE DUAL Teer ch Chace ¢ CONNEC EYEDY - 

7.2 LIMITATIONS 
THIS PROGRAM NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
CONTROLLER OPTION. AND DOES TEST THE UNLOAD COMMAND 
OR THE OPERATION OF THE CORTROLLER SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2.3) 

7.3 EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 4S SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.5 MINUTES. 


7.4 STACK POINTER 
THE STACK IS INITIALLY SET TO 1100 AND EXTENDS DOWNWARD 
IN MEMORY, 
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369 

=o ‘8 SUBROUTINE CALLS 

ave THE SUBROUTINE CALLS USED BY THE PROGRAM ARE: 

374 A. EACH TE (IOT es APSE THIS CALL I PE AEL esr 

375 EST_IN INSTRUCTION. THIS ROUTINE ESTABLISHES 

308 CHE A TERATZON. "aia AND THE LOOP ON TEST AND LOOP 0 

378 

379 B. ERROR’ ( m ern TION). THIS CALL IS USED TO REPORT ALL 
cys OLLOWED BY_A ppet R RICH IDENTIFIES 


80 fF RORS. 
HE ERROR MESSAGE WHICH WILL BE TYP 


3 IF ges INSTRUCTION IS USED FOR THE FOLLOWING SUBROUTINE 


TYPE = TTY TYPEOUT ROUTINE 


a Tees = Rie Gent Agee 0" Ags, 
389 TYPON - OcTAL NUMBER be MBER PER bast CALL 
33, RUCHR - READ PHRRACT ty KeveO 
8 Beh = 8 Ee a TS, 

OCTAL NUMBER FROM NE TTY KEYBOARD 
334 COVREG = REOUT INE TO SAVE RO-RS 
33 RESREG - ROUTINE TO RESTORE RO-RS 
327 : 7.6 REQUIRED TESTS 
393 IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE. THE 
400 OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
4OL TESTS ARE RUN 
403 A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
4 LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
40s EACH PORT. 
407 B. TEST 4 AND TEST S. THESE TESTS SET ’VV-A’ AND ’V 
408 RESPECTIVLY, THESE TESTS MUST BE PERFORMED AT LEASE " ONCE 
409 - 46 ARE RUN. 
42 7.7 DISK SURFACE USAGE 
413 THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER 
48 DRIVE MUST BE CYCLED UP AND BE ON LINE FOR THE pincriveric. if BE 
416 ; 
417 7.8 TEST ITERATIONS 
419 EACH TEST IS PERFORMED ONCE ON THE FIRST PASS THROUGH THE 
430 PROGRAM. ON THE SECOND AND SUBSEQUENT PASSES THROUGH THE 
Hel PROGRAM, EACH TEST IS PERFORMED THE FOLLOWING NUMBER OF 
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ITERATION COUNT 
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425 TEST NO. (IN DECIMAL) 
UBS 
4a? 01 t 
428 O02 10 
429 03 10 
430 O4 1 
43] Os 1 
433 06 yoo0 
433 07 4000 
434 10 100 
435 il 100 
436 12 4000 
437 13 4 
438 14 4 
439 15 4 
449 16 4000 
44] 17 4000 
yup 5p 4o00 
443 21 4000 
a4 Dp 4000 
4YS 23 4000 
YUE By yooo 
4? 25 4000 
a: 26 4oo0 
37 4ooo 
30 4o00 
451 31 4 
32 
| wy 33 4000 
| 4gy 34 4Oo0 
| 455 35 
| 456 36 4 
| 457 37 H 
| 458 40 
| 2 , 
| ger 43 4ooo 
| yg yy 4000 
463 4s 20 
| dee 46 20 
| 466 IF AN ERROR OCCURS IN A TEST, THAT TEST WILL BE PERFORMED 
| we? ONLY ONCE. THE OCCURENCE OFAN ERROR FORCES THE ITERATION i 
468 COUNT TO *1°. Ki 
470 TEST PERFORMED IN THE SINGLE TEST MODE WILL BE ITERATED 
471 THE NUMBER OF TIMES SPECIFIED BY THE ITERATION COUNT FOR 
47 THE TEST. 
474 7.9. LOOP ON ERROR OPTION 
jae 7 ‘ Yr. PR WILL LOOP ON A FAILING TEST 
= cnt Soee fi *surTcH 15 RESET OR THE ERROR SI0e5 OCCURING. 
478 AUSE THE PROGRAM MUST THE RPO4 ATE 


| 479 BEFORE LOOPING ON THE ERRO OR e THE TEST FOR siicta> Bc S PERFORMED 
, 480 T THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 
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481 WAS DETECTED. 
uss 7.10 SPECIAL M7775 DP’ BOARD TESTS 
4gs THE PROGRAM CONTAINS 2 SPECIAL TESTS FOR THE 1777S DP’ BOARD 
4 TO VERIEY THE PROPER 6 OPERAT ON OF THE PORT TIMEOUT ONE-SHOT. 
4 THESE TESTS ARE NOT RLIN ART OF THE NORMAL SEQUENCE AND MUST 
488 BE SELECTED BY THe OPERATOR THE TESTS ARE TEST 4S AND TEST 4E. 
a 
49> 8. TEST DESCRIPTIONS 
ee ee ea ee 
435 8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 
497 THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
49g # THE CONTENTS OF THE DRIVE STATUS REGISTER (RPDS1) THROUGH 
4993 BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
500 (’ATA’ & *VV") AND VERIFIES THAT CORRECT STATUS IS READ 
501 THROUGH BOTH | PORTS, (THE CORRECT STATUS IS ’MOL’, ’PGM’, 
502 ’DPR’, & "DRY if ET THER FORT SEES ALL ZEROS FROM 
503 RPDS1’ THE PR ogRAM ONCLUDES THAT THE DRIVE IS IN NEUTRAL 
504 AND THAT ANY BIT DESCHEPANEY BETWEEN PORTS INDICATES A 
B05 FAILURE IN THE PATH FOR THAT BIT. 
| 307 8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 
| CHECKING THe DRIVE STATUS. REGISTER (RPOSL) THROUGH et 
Sli HE Sey SING port ves VER FING T T CORRECT. STATUS IS 
S12 es RPDS1 S READ THROUGH T ITE PORT, 
| §13 Sree SHOULD BE SEEN. IF BOTH SU EONDT TIONS EXIST (I°E. 
514 CORRECT STATUS THROUGH THE SEIZING PORT BND 2 TeROS. THROUGH 
| 8g THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE BRIE” 
| Bib HAS BEEN SEIZED BY THE SPECIFIED PORT. 
| 18 8.3 TEST 1 - DRIVE ACCESS TEST 
2v VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
| 855 A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT THE 
| -§e3 DRIVE IS A OUAL PORT RPON/S/6 THAT THE DRIVE ts" ONLINE (RPDS1 HAS 
| §e4 ’MOL’. ’PGM’. "DPR’, & *DRY’ AND THE THE DRIVE SERIAL 
bes NUMBER READ THROUGH’ BSTH PORTS I5 fi sone” 
| 527 B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
! ea 8.4 TEST 2 - PORT 'A’ SEIZE/TIMEOUT TEST 
esl : VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
235 A. WRITE 0’S INTO RPDS1 THROUGH PORT A’; VERIFY THAT THE DRIVE 
| §35 HAS BEEN SEIZED. 
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537 B. READ EACH DRIVE REGISTER, EXCEPT RPCS1, THROUGH PORT 'B’; 
VERIFY THAT 0’S ARE READ FROM EACH REGISTER. 
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540 | C. WAIT FOR THE PORT TIMEOUT TO OCCUR AND RELEASE THE DRIVE. 
541 MEASURE THE DURATION OF THE TIMEOUT GNE SHOT AND SAVE TH 
Sue VALUE FOR LATER USE. VERIFY THAT TIMECUT RETURNED THE DRIVE TO 
543 NEUTRAL. 
545 8.5 TEST 3 - PORT 'B’ SEIZE/TINEOUT TEST 
547 VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
548 THE DRIVE. 
550 A. WRITE 0°S INTO RPDS1 THROUGH PORT 'B’; VERIFY THAT THE DRIVE 
55! HAS BEEN SEIZED. 
| 553 B. READ. EACH DRIVE REGISTER, EXCEPT RPCSL. THROUGH PORT *A’; 
Bed VERIFY THAT 0’S ARE READ FROM EACH REGISTER 
556 C. WAIT FOR THE PORT TIMEQUT TO OCCUR AND RELEASE THE DRIVE. 
557 MEASURE THE DURATION OF THE TINOUT ONE SHOT AND SAVE THE 
558 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE ORIVE 0 
560 _ 
| 5B 8.6 TEST 4- PORT ’A’ COMMAND SEIZE TEST & SET *WV-A’ 
| 563 VERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ‘wv’ 
| Be FOR THE PORT UNDER TEST. 
| 566 A. ISSUE A DRIVE CLEAR COMMAND THROUGH FORT 'A’. VERIFY THAT THE 
| BB? DRIVE WAS SEIZIED BY PORT A’ AND THAT THE 'GO’ GIT RESET. 
| 569 B. ISSUE A READIN PRESET COMMAND THROUGH PORT 'A’. VERIFY THAT THE 
| 30 "WW? BIT WAS SET FOR PORT °A’ AND THAT THE 'VV' BIT WAS NOT SET 
| Be FOR PORT °B’. (NOTE THAT THE 'VV’ BIT NOT BEING SET FOR PORT 
| Ba "B’ CAN ONLY BE TESTED THE FIRST TIME THROUGH THE PROGRAM. ) 
| 875 C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
| 5% THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
, 578 8.7 TEST S - PORT 'B’ COMMAND SEIZE TEST & SET "VV-8" 
580 VERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET "Ww" 
BB FOR THE PORT UNDER TEST. 
| 
| 583 A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT 'B’. VERIFY THAT THE 
BBs DRIVE WAS SEIZIED BY PORT 'B’ AND THAT TEH ’GO’ BIT RESET. 
| 56 B. ISSUE Q READIN PRESET COMMAND THROUGH PORT 'B’. VERIFY THAT THE 
| 58 "WW" BET FOR PORT *S’ WAS SET. 
a) C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
580 THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
592 8.8 TEST 6 - TEST RELEASE, DRIVE SEIZED BY PORT ’A’ f 
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8.9 


8.10 


8.12 


8.13 


TEST THE OPERATION OF THE RELEASE COMMAND, ORIVE SEIZED 

A. SEIZE: THE DRIVE THROUGH ORT 'A’ BY WRITING O'S INTO RPDS1. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'R’. VERIFY THAT THE DRIVE 
Barus eo TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

TEST 7 - TEST RELEASE, DRIVE SEIZED BY PORT-’B’ 

TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT ’8’ BY WRITING O’S INTO RPDS1. 

B. ISSUE A RELEASE COMMAND THROUGH PORT °B’. VERIFY THAT THE DRIVE 
Reem TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

TEST 10 - TEST RELEASE THROUGH PORT ’°A’, DRIVE IN NEUTRAL 

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT ’A’ WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


TEST 11 - TEST RELEASE THROUGH PORT ’B’, DRIVE IN NEUTRAL 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT ’B’ WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


TEST 12 - TEST THAT ’CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0’°S INTO RrOS! THROUGH PORT ’A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED 


B. ISSUE A DRIVE CLEAR THROUGH PORT ’A’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH11 AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT 'A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 12 = TEST THAT ’CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’B’ 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE ORIVE BY WRITING 0’S INTO RPDS! THROUGH PORT 'B’. 
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643 VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
651 B. ISSUE A DRIVE CLEAR THROUGH PORT 'B’ AND VERIFY THAT THE DRIVE 
bbe DOES NOT RETURN TO NEUTRAL. 
654 C. ISSUE A MASSBUS CLEAR THROUGH THE RHil AND VERIFY THAT THE DRIVE 
B55 DOES NOT RETURN TO NEUTRAL. 
657 D. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
658 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
B60 8.14 TEST 14 - TEST RESET ATTENTION ’A’ BY MASSBUS CLEAR 
B62 VERIFY THAT A MASSBUS INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 
p63 SEIZING PORT. 
BES A. SET EACH PORT ’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
£57 : 
BES B. SEIZE THE DRIVE THROUGH PORT 'A’ BY WRITING 0’S INTO RPDS1. 
70 C. ISSUE A MASSBUS CLEAR. 
| §78 D. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE ATTENTION 
| 673 : BIT FOR PORT ’A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
eed “ye B’ IS STICL Fr. 
| 676 . 8.15 TEST 15 - TEST RESET ATTENTION ’B’ BY MASSBUS CLEAR 
| £78 VERIFY THAT A MASSBUS INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 
673 SEIZING PORT. 
BB! A. SET EACH PORT’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
| ° 
| 683 
by . SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RPDS1. 
| BBG C. ISSUE A MASSBUS CLEAR. 
| = BB D. RELEASE THE DRIVE THROUGH PORT. B° VERIFY THAT THE ATTENTION 
| -6B9 BIT FOR PORT ’B’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
650 ’A’ IS STILL SET. 
b3e 8.16 TEST 16 - TEST CLEAR ATTENTION BY MASSBUS INIT - DRIVE IN NEUTRAL 
635 VERIFY THAT MASSBUS CLEAR DOES NOT RESET ATTENTION BITS WHEN THE 
p36 DRIVE IS IN NEUTRAL. 
637 A. SET THE ATTENTION BITS FOR BOTH PORTS. 
E53 , B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
701 C. ISSUE A MASSBUS INIT. VERIFY THAT NEITHER ATTENTION BIT HAS 


8.17. TEST 17 - TEST SEIZE BY RPCS1 READ THROUGH PORT °A’ 








r ee en ee ee ee ee ee ee 


‘Boe 


DRIVE IS SEIZED BY THE OTHER P 

A. SEIZE THE DRIVE THROUGH PORT °8’ BY WRITING O'S INTO RPOSL. 

8. 075 JNOT REQS1 FROM PORT 'A'; VERIFY THAT THE DRIVE IS ST 
ihe BY Port . ote, 


nm 
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705 
708 VERIFY THAT READING THE CONTROL SEGISTER (RPCS1) SEIZES THE DRIVE. 
re A. READ THE CONTROL REGISTER (RPCS1) THROUGH PORT ‘A’; VERIFY THAT 
oe THE DRIVE IS SEIZED. 
711 B. ISSUE A RELEASE COMMAND THROUGH PORT 'A’; VERIFY THAT THE DRIVE 
718 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
ci 8.18 TEST 20 - TEST SEIZE BY RPCS1 READ THROUGH PORT ‘B’ 
218 VERIFY THAT READING THE CONTROL REGISTER (RPCS1) SEIZES THE DRIVE. 
718 READ THE CONTROL REGISTER (RPCS1) THROUGH PORT '8"; VERIFY THAT 
239 THE DRIVE IS SEIZED. 
| 731 B. ISSUE A RELEASE COMMAND THROUGH PORT ‘8’; VERIFY THAT THE DRIVE 
| i RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
| ces 8.19 TEST 21 - TEST "PORT REQUEST’ FROM PORT 'A’ 
| 736 VERIFY THAT WRITING A ORIVE REGISTER SETS "PORT REQUEST’ WHEN THE 


SRSTRRIER ETS 


C. ISSUE A RELE COMMAND FROM PORT ’B’ AND VERIFY THAT THE OR 
SWITCHE RE ESET "a". VERIFY THAT THE ATTENTION BIT 18 Set rf 
BOR ay "Ar AND 1S NOT SET EGR Port "B’, 
D. ISSUE A RELEASE COMMAND THROUGH PORT °A’ AND VERIFY THAT THE DRIVE 
Res UENeD TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. - : 
74 | 8.20 TEST "2 - TEST PORT REQUEST FROM PORT ‘B’ 
74 . , WRITING A DRIVE REGISTER SETS "PORT REQUEST’ WHEN 
ae . 0 s IZED BY THE OTHER PORT. no i 
74 A. +... «ME DRIVE THROUGH PORT ’A’ BY WRITING O0’S INTO RPDS. 
748 B. WRITE 0°S INTO RPOS1 FROM PORT '8’; VERIFY THAT THE DRIVE IS STILL 
749 SEIZED BY PORT 'A’. 


C. EASE COMMAND vente PORT *A’ AND VERIFY THAT THE DRIVE 
arrteHeD TO PORT “B’. VERIFY THAT a= ATTENTION BIT IS SET FOR 
PORT 'B’ AND IS NOT SET FOR PORT 


751 

iS 

755 OD. ISSUE A euThe ee rare AND VERIFY THAT THE DRIVE 
ie RETURNED O° NEUTRAL THAT NEITHER R ATTENTION BIT IS SET. 
758 
759 
760 


8.21 TEST 23 - TEST NO *PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT ’A’ 
VERIFY THAT READING THE CONTROL REGISTER (RPCS1) DOES NOT SET "PORT 





——s 
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71 REQUEST’. 
“3 A. SEIZE THE ORIVE THROUGH PORT °B’ BY READING RPCS1. VERIFY THAT 
764 THE DRIVE HAS BEEN SEIZED. 


7éS 
8. SP THE CONTROL REGISTER FROM PORT 'A’. VERIFY THAT *DVA’ IS NOT 


C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
6.22 TEST 24 - TEST NO ‘PORT REGUEST’ WHEN READ RPCS1 THROUGH PORT 'B’ 
Maia we READING THE CONTROL REGISTER (RPCS1) DCES NOT SET ’PORT 
A. SEIZE THE DRIVE THROUGH PORT ’A’ BY READING RPCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 
B. A THE CONTROL REGISTER FROM PORT 'B’. VERIFY THAT *DVA’ IS NOT 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
€.23 TEST &S - TEST RELEASE BY PORT ’A’ WHEN SEIZED BY PORT ’B’ 


VERIFY THAT A_COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING O0’S INTO RPDS. 
ISSUE A RELEASE COMMAND THROUGH PORT ’B’. 
VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'B’. 


ReLEre My DRIVE THROUGH PORT °B’. VERIFY THAT THE DRIVE SWITCHED 


E. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


8.24 TEST 26 - TEST RELEASE BY PORT °B’ WHEN SEIZED BY PORT °A’ 


VERIFY _THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE ORIVE 
IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ’°A’ BY WRITING 0’S INTO RPDS1. 
ISSUE A RELEASE COMMAND THROUGH PORT ’B’. 
VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 


melee ie id DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE SWITCHED 
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E. RELEASE THE DRIVE THROUGH PORT ’S’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


8.25 TEST e7 - TEST SEIZE BY WRITING ATTENTION BIT 


TEST THAT WRITING THE APPOPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
ee SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 


coiwa 


A. WRITE THE APPROPRIATE DRIVE BIT INTO RPAS; VERIFY THAT THE DRIVE 
IS SEIZED. 


8. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
8.26 TEST 30 - TEST NO SEIZE WHEN 'O’ WRITTEN INTO ATTENTION BIT 


VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ’°ZERO’ IS WRITTEN INTO 
THE DRIVE’S ATTENTION BIT. 


A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
BIT OF THE DRIVE BEING TESTED, INOT THE ATTENTION REGISTER. 


B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
8.27 TEST 31 - TEST PORT ’A’ TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
B. WRITE 1°S INTO RPERL THROUGH PORT ’A’. 
C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A’ AND IS NOT SET FOR 
PORT 'B’: AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
8.28 TEST 32 - TEST PORT ’B’ TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O0’S INTO RPDSL. 
B. WRITE 1°S INTO RPER1 THROUGH PORT ’B’. 
C. WAIT FOR THE DRIVE T9 TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL: THAT ATTENTION IS SET FOR PORT 'B’ AND IS NOT SET FOR 
PORT ’A’: AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
8.29 TEST 33 - TEST RELEASE THROUGH PORT ’A’ WITH ERRORS SET 


Met ae THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


A. SEIZE THE ORIVE THROUGH PORT 'A’ BY WRITING O°S INTO RPOS1. 


Ra iat Has ae aT MUR RRS he APIS eRe CMa yin aay 
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55 
w 


WRITE 1°S INTO RPERI THROUGH PORT ’A’. 
ISSUE A RELEASE COMMAND THROUGH PORT °A’. VERIFY THAT THE ’GO’ 
IT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
HAT RPERI HAS NOT BEEN CLEARED. 
D. CLEAR RPER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’A’. 


E. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


8.30 TEST 34 - TEST RELEASE THROUGH PORT °B’ WITH ERRORS SET 


VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDSI. 
B. WRITE 1°S INTO RPERI THROUGH PORT 'B’. 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE ’GO’ 
gir es RESET THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
T RPERI HAS NOT BEEN CLEARED. 
D. CLEAR RPER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’B’. 


E. ISSUE A RELEASE COMMAND THROUGH PORT °B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


8.31 TEST 35 - TEST TIMEOUT RETRIGGER THROUGH PORT ’A’ 
VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
B. WAIT SOO MS AND WRITE 0’S INTO RPDS1 THROUGH PORT A’. 


Pinetree gaat Rito act RN 


$19 

911 C. VER te Hel T re OUT OCCURS WITHN + OR - es OF THE SPECIFIED 
ais TI (THE T IS MADE STEP ’B’. 

914 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
aie BIT IS SET. 

aig 8.33 TEST 37 - TEST PORT °A’ ATTENTION AFTER A COMMAND 

$19 


a THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’A’. 
. WAIT rR. C eon RY’ TQ BECOME 
. A a REY T hat fee ATTENTION, tf T aRT ’ 1S aay 
THAT’ THe ATTENTION BIT FOR PORT ’ 
C. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE RETURNED 
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8.34 


8.35 


8.36 


TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 40 - TEST PORT 'B’ ATTENTION AFTER A COMMAND 
TEST THE OPERATION OF THE PROT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’B’. 
B. wry FOR_THE yPECee TERATE COMMAND TO COMPLETE ‘’DRY’ TO BECOME 
Y THAT THE ATTENTION OM 44 at *B’ IS SET AND 
THAT’ THE ATTENTION BIT FOR PORT ’°A’ IS NOT SET. 


C. RELEASE THE DRIVE THROUGH-PORT °B’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 41 - TEST PORT INTERACTION FROM PORT ’A’ 

VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT °A’ BY WRITING O'S INTO RPOS1. 
B. WRITE 1°S INTO RPERI, RPERZ, & RPERS THROUGH PORT ’A’ 


C. READ RPER1, RPER2, & RPER3 THROUGH PORT °B’. VERIFY THAT PORT 
"B’ SEES O'S FROM'’EACH OF THESE REGISTERS. 


D. CLEAR RPERI, RPER2, & RPERS THROUGH PORT ’A’. 


E. WRITE 1°S INTO RPERL, RPER2, & RPER3 THROUGH PORT °B’. VERIFY THAT 
PORT AP SEES. 0’S FROM EACH’ OF THESE REGISTERS. 


F. RELS THE DRIVE PORT ’A’. VERIFY THAT THE DRIVE 
SW CRED TO PORT *B’ THAT THE ATTENT ot A i FOR PORT its ° 
SET AND THE ATTENTION BIT FOR PORT ’B’ T SET. 


oi RETURNED TO NELITRC AND THA REI THER A aFTENTYON BIT to SET — 


TEST 42 - TEST PORT INTERACTION FROM PORT 'B’ 

VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDS1. 
B. WRITE 1°S INTO RPERI, RPER2, & RPERS THROUGH PORT ’B’. 


C. READ RPER1, RPER2, & RPERS THROUGH PORT 'A’. VERIFY THAT PORT 
"A’ SEES a's FROM EACH OF THESE REGISTERS. 


CLEAR RPERI, RPER2, & RPER3 THROUGH PORT ’B’. 


WRITE 1°S INTO RPER1, RPER2, & RPER3 THROUGH PORT °A’. VERIFY THAT 
T rt SEES 0’S FROM EACH’ OF THESE REGISTERS. 


RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE HAS 
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8.40 


MO-11-D2RJE-A, OUAL CONTRLR LOGIC TEST - PART 1 MACY11 27(1006) O2-NOV-76 18:42 PAGE 19 
DZRJEA.CMB =" O2-NOV-76 18:49 

1 

| 

| 

| 

i 

| 

| 


SWITCHED TO PORT 'A’ AND THAT THE ATTENTION SIT FOR PORT ’A’ IS 
SET AND THE ATTENTION BIT FOR PORT ’B’ IS NOT SET. 


G. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 43 - TEST PORT ’A’ ALTERNATE ATTENTION BIT PATH 

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ’A’. 

8. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0’S INTO RPOS1. 


C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


TEST 44 - TEST PORT ’B’ ALTERNATE ATTENTION BIT PATH 

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ’B’. 

B. SEIZE THE DRIVE THROUGH PORT 'A’ BY WRITING 0’S INTO RPDS. 


C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


TEST 45 - TEST NO TIMEOUT THROUGH PORT ’A’ 


VERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER 

THIS TEST IS FOR DRIVES WHICH HAVE THE M7775 5 
NOT _RUN oe Pee ie est SEQUENCE. TO RUN T 
BE SELECTED SEPARATELY. 


A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDS1. 
B. SET PORT REQUEST BY WRITING 0’S INTO RPDS1 FROM PORT ’A’. 
C. COMMAND FROM PORT °B’. VERIFY THAT THE DRIVE 
nas SHITOHED TO THE OTHER PORT AND THAT THE °ATA’ BIT DID NOT 
’B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT °A’. 
D. WAIT THE TIMEOUT IMTFRVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
BEEN RELEASED. 
E. RELEASE THE ORIVE THROUGH PORT 'A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 46 - TEST NO TIMEOUT THROUGH PORT 'B’ 
VERIFY THAT THE nn eet ay IS NOT TRIGGERED WHEN THE DRIVE 
Ths HES gg T: eerie le neh NO RE OESTER ACCESSES. 
HIS TEST IS FOR DRIVE NTH HA THE 4777S *DP’ BOARD AND IS 
T RUN AS PART THE TEST SEQUENCE. TO RUN THIS TEST, IT MUST 
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A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS. 
B. SET PORT REQUEST BY WRITING 0’S INTO RPDS1 FROM PORT ’B’. 


C. ISSUE A Reb ee COMMAND FROM PORT ’A’. 
0 THE OTHER PORT AND THAT DID_NOT 
REGISTERS WILL NOT BE CHECKED THROUGH PORT BY. 


D. WAIT THE TIMEOUT INTERVAL + 25%. 


HAS SWITCHED T 
SET FOR PORT ’A’. 


BEEN RELEASED. 


E. RELEASE THE DRIVE THROUGH PORT ’B’. 


VERIFY THAT THE DRIVE 
THE *ATA’ BIT 


VERIFY THAT THE DRIVE HAS NOT 


VERIFY THAT THE DRIVE 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


9. PROGRAM LISTING 


TITLE ae PS er ra DUAL CONTRLR LOGIC TEST - PART 1 


YRIGHT (C) 1976 
tSDIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


;* 
j ¥PROGRAM BY C. HESS 


tSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


; HPACKAGE (MAINDEC-11-DZQAC-Ce), 


SEPT 14, 1976. 


-SBTTL OPERATIONAL SWITCH SETTINGS 


-SBTTL BASIC DEFINITIONS 


’ 
: SWITCH 

+s 15 HALT ON 
z 14 LOOP ON 
$ 13 INHIBIT 
£ ll INHIBIT 
* 10 BELL ON 
% 3 LOOP ON 


TERATIONS 
RROR 


;#INITIAL ADDRESS OF THE STACK POINTER ##* 1100 *x# 
TACK= 1100 


EQUIV EMT, ERROR 
EQUIV IOT)SCOPE 


j sHISCELLANEOUS DEFINITIONS 
tre 12 





;;BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 


;;CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
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C DEFINI 
1097 000015 R= 1S :;CODE FOR CARRIAGE RETURN 
1098 900200 CRLF= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 
1099 177776 PS= 177776 >;PROCESSOR STATUS WORD 
1100 .EQUIV PS. PSW 
1101 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
ll 177772 PIRG= 177772 *:PROGRAM INTERRUPT REQUEST REGISTER 
1103 177570 OSWR= 177570 *:HARDWARE SWITCH REGISTER 
1108 177570 DDISP= 177570 *:HARDWARE DISPLAY REGISTER 
1106 -*GENERAL PURPOSE REGISTER DEFINITIONS 
1107 O= %0 > 3GE REGISTER 
1108 900001 Ris x1 > GENERAL REGISTER 
1109 Ro= %2 *:GENERAL REGISTER 
1110 090003 R3= %3 +: GENERAL GISTER 
fill R4= “4 >:GENERAL REGISTER 
1112 oo000s RS= 4S GENERAL REGISTER 
1113 000; Rb= %~ +:GENERAL REGISTER 
1114 000: R7= “7 ; ; GENERAL ER 
1115 000006 SP= % ::STACK POINTER 
Hie PC= 47 3;PR 
1118 : -*PRIORITY LEVEL DEFINITIONS 
1119 Pro= iO ;;PRIORITY LEVEL 0 
1120 000040 PRi= 40 :PRIORITY LEVEL 1 
1121 000100 PRe= 100 *:PRIORITY LEVEL 2 
1122 000340 PR3= s-:140 PRIORITY LEVEL 3 
1123 000200 PRu= = BD >:PRIORITY LEVEL 4 
1124 oo0240 PRS= 240 > PRIORITY LEVEL 5 
1125 000300 PRo= = 300 PRIORITY LEVEL 6 
1128 000340 PR7= 340 ::PRIORITY LEVEL 7 
i128 -#"SWITCH REGISTER" SWITCH DEFINITIONS 
| 1129 100000 sui5= 100000 
| Ht $38050 Suid: 
1132 010000 SWl2= 10000 
1133 004000 SWll= 4000 
| 1134 ooe000 SW10= 2000 
| He Boo400 ee 
| 4137 SwO7= 209 
| 1138 000100 SWi0b= 100 
i ao: 
ig | Bae ape i 
i 4y4 = 4 
| 1143 oo0002 SwOl= 2 
tive mers , Bu jv bu09 Su9 
| 146 ‘Eouly Swos, SWS 
| 1147 “EQUIV 5wWO7;SW7 
1198 -EQUIV SwO6, SW 
i oC’ ’ 
«HS Fcoly Supe eu 
| 4151 “EQUIV §wO3,SW3 
1152 “EQUIV SwO2,SW2 





en 
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BASIC DEFINI 
1153 .EQUIV SWO1,SW1 
1158 -EQUIV SWOO,SWO 
1156 jrO8TA BI BIT DEFINITIONS (BITOO TO BITIS) 
1136 isa aM = pte 
115 00 IT13= 20000 
1160 010000 BITl2= 10000 
if = a BIG: eng 
116 I TOS9= 10 
1164 000400 BITOg= 400 
1165 000200 BITO7= 200 
1166 000100 BITOb= 100 
1167 000040 BITOS= 40 
1168 990020 BITOY= 20 
1169 000010 BITO3= 10 
1176 000004 BITO2= 4 
1171 000002 BITOl= 2 
1172 000001 BITOO= 1 
1173 -EQUIV BITOS,BIT9 
1174 -EQUIV BITO8,B81T8 
1175 -EQUIV BITO7,B1T7 
1176 -EQUIV BITO6,BIT6 
1177 -EQUIV BITOS,BITS 
1178 -EQUIV BITO4 BITY 
1179 -EQUIV BITO3,81T3 
1180 -EQUIV BITO2,BIT2 
1181 -EQUIV BITO1,BIT1 
1182 -EQUIV BITOO,BITO 
1184 -*BASIC “CPU” TRAP VECTOR RODRESSES 
1185 ERR =4 :3TI R ERRORS 
1186 000010 SVEC= 10 3 RES EVE ot GAL INSTRUCTIONS 
1187 000014 TBITVEC=14 Hd i 
1188 000014 TRIVEC= 14 Hi TRap 
1189 000014 BPTVEC= 4 OINT TRAP (BPT) 
1199 000020 OTVEC= 23] UT OUTPUT TRAP (IOT) #*SCOPEx* 
1191 000024 PWRVEC= 24 tT BOWER F 
1192 000030 EMTVEC= 30 H EMULATOR FRAP (EMT) **ERROR** 
1193 000034 TRAPVEC=34 $3 TRAP 
1194 000060 TKVEC= 60 bat KEYBOARD VECTOR 
1195 000064 TPVEC= 64 33TTY PRINTER VECTOR 
1136 000240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
ie sg LHELELLA KLARA K EKA LALA ALA KE LAE LRA KKK RAK KERALA LEAK KSHKK KEES 
1200 -SBTTL RH11 REGISTERS 
ich $ j RRRERRA LEELA ALARA ELAR A AE REAR A REA EAE RE RAR A REL E ARK EK EEL ELERER 
1204 ;CONTROL AND STATUS REGISTER 1 (RPCS1) 
1206 009100 IE= 100 s INTERRUPT ENABLE (BIT #6) 
1207 000200 ROY= 200 ‘READY (BIT #7) 
1208 co0400 Alé= 400 ‘HIGH ORDER BUS ADDRESS BIT (BIT #8) 


! 
' 
j 


1264 cooco4 DIGB= 4 sDRIVE TO INNER GUARD BAND (BIT #2) 
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DZRJEA.CMB ‘O2-NOV-76 18:49 RH11 REGISTERS 
1209 001000 Al7= 1U00 sHIGH ORDER SUS ADDRESS BIT (BIT #9) 
isi o26000 NePE= 2000 ae om ry ROR (BIT #13) 
lel 4 + = ty BR -TR Madd ERROR BR ROR 
1e13 1c0090 SC= 100000 : SPECIAL CONDITION (err #15) 
1215 sWORD COUNT REGISTER (RPWC) 
126 >(EACH BIT IS CALLED BY BIT NUMBER) 
1218 sBUS ADDRESS REGISTER (RPBA) 
1613 (EACH BIT IS CALLED BY BIT NUMBER) 
lee cone, AND STATUS REGISTER 2 (RPCS2) 
1223 000001 uSl=z 1 : SELECT (BIT #0) 
1224 goood USe= 2 :UNIT SELECT (BIT #1) 
1225 000004 usd= oY “UNIT SELECT (BIT #2) 
1 000010 BAI= 10 BUS ADDPESS INCREMENT INHIBIT (BIT #3) 
l 000020 PaT= 20 *MASSBUS FARITY TEST (BIT #4) 
1228 00004 CLR= 40 CLEAR (BIT #5) 
‘I 000100 R= 100 INPUT READY (SIT #6) 
000200 OR= 200 sOUTEUT READY (Biz #7) 

1231 00 MPE= 400 ASS BUS PARITY ERROR (BIT #8) 
2 001000 MXF= 1000 MISSED TRANSFER ERROR (BIT #9) 
1233 PGE= 2000: : PRO (BIT #10) 
1234 oo4000 NEM= 4000 : NON EXISTENT MEMORY (BIT #11) is 
1235 0000 NED= 10000 NON EXISTENT DRIVE (BIT #12) () 
1236 o20000 UPE= 20000 ; UNIBUS PARITY ERROR (BIT #13) ¢ 
1237 040000 WeE= 4000 ‘WRITE CHECK ERROR (BIT #14) t 
1228 100908 OLT= 100000 *DATA LATE (BIT #15) 
1240 sDATA BUFFER REGISTER (RPDB) 
eat (EACH BIT IS CALLED BY BIT NUMBER) 
1243 

| iste ss KRFKEKE KLE REEL KEELE KEL ERK LS LEEK EF HEE EE ESKER ELLER EEE A ELLER FSA 

| 1246 .SBTTL RPO4/S/6 REGISTERS 
iste $3 SKE SLLLERS SLE LE SKE E XLS FLA EKER ERE RES EE ER ESSER EKA S ES ERLE SELL EEE 
1296 sCONTROL AND STATUS 1 REGISTER. (#00) 

| 1252 000001 Go= ;G0 BIT (BIT #0) 
1253 ooood2 Fis 2 ‘FUNCTION CODE BIT #1 
1254 000004 Fo= 4 FUNCTION CODE BIT #2 

| 1 000010 F3= 10 "FUNCTION CODE BIT #3 
1256 000020 Fu= 20 *FUNCTION CODE BIT #4 

| 3267 000040 FS= 40 “FUNCTION CODE BIT #5 

| 1258 004000 DVA= 4000 *DEVICE AVAILABLE (BIT #11) 

| 1e60 DRIVE STATUS REGISTER (RPDS1) (#01) 

| Jeep -OFS= 1 DRIVE FORWARD S"/SEC. (BIT #0) 

| 1263 oocooe2 OFF20= 2 ‘DRIVE FORWARD 20"/SEC. (BIT #1) 

| 
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JEA.CMB O2-NOV-76 


1298 
1299 


Ge leieahes 


WWIWIWWWUIGWIG 
TT oT a 
WONIOW CWO 


bs B= bs Re ts BS = Bb fe he a ba bebe Re | el 


RPO4/S/6 REGISTERS 


GRV= 1 160 evens (BIT sb 

he eee ba I a Gy 
me Dat a 

ORY= 200 ‘DRIVE READY (BIT 

DPR= 4OJ ;DRIVE PRESENT (Bit. 48) 

PGM= 41/500 ;PROGRAMABLE (BIT #9 

LST= +000 ;LAST SECTOR TRANSFERRED (BIT #10) 
WRL= 4000 sHRITE LOCK (BIT 811) 

MOL= 10000 ; MED (BI 


TOM" ON-LINE 12) 
j POSITIONING OPERATION IN PROGRESS (BIT #13) 
ERR= 40000 ;COMPOSITE ERROR (BIT #1 


ATA= 100000 ZATTENTION ACTIVE (BIT #15) 
ERROR REGISTER #01 (RPER) (#02) 

ILF= 1 ILLEGAL FUNCTION (BIT #0) 

IlR= 2 SILLEGAL REGISTER (BIT #1) 
RMR= IREGISTER MODIFICATION REFUSED (BIT #2) 
PAR= 10 PARITY ERROR (BIT #3) 
FER= 20 FORMAT ERROR (BIT #4) 
WCF= 40 tWRITE CLOCK FAIL. (BIT #5) 
ECH= 100 SECC HARD ERROR (BIT #6) 
HCEs 200 :HEADER ERROR (BIT #7) 
HCRC= 400 HEADER CRC ERROR (BIT #9) 

= 1000 TADDRESS OVERFLOW ERROR (BIT #9) 
IAE= 20 : INVALIO SS ERROR (BIT #10) 
WLE= 4000 sHRITE LOCK ERROR (BIT 811) 
DTe= 10000 :DRIVE_ TIMING ERROR (BIT #12) 
OPI= 20000 : OPERATION INCOMPLETE (BIT #13) 
UNS= 40000 SORIVE UNSAFE (BIT #14) 
DcK= 100000 {DATA CHECK ERROR (BIT 15) 
sMAINTAINABILITY REGISTER (RPMR) (#03) 
OMD= 1 sDIAGINOSTIC MODE (BIT #0) 
MCLK= 2 IMAINTAINABILITY CLOCK (BIT #1) 
INX= 4 :MAINTAINABILITY INDEX (BIT #2) 
MSTCK= 10 :MAINTAINABILITY SECTOR CLOCK (BIT #3) 
Dz -EMAINTAINABILITY READ (BIT #4) 
MWR= 40 tMAINTAINABILITY WRITE (BIT #5) 
DTSY= 200 :MAINTAINAB LITY SYNC DETECTED (BIT #7) 
sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 
ATo= 1 ;DEVICE 0 (BIT #0) 
ATi= 2 ‘DEVICE 1 (BIT #1) 
AT2= 4 sDEVICE @ (BIT 82) 
AT3= 10 :DEVICE 3 (BIT #3) 
aTus 20 ‘DEVICE 4 (BIT #4) 
ATS= 40 SDEVICE 5 (BIT #5) 
ATé= 100 sDEVICE & (BIT #6) 
AT7= 200 tDEVICE 7 (BIT #7) 
) (#05) 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA 
;(EACH BIT IS CALLED BY BIT NUMBER) 
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DZRJEA. CMB 


1352 


peeeaeniiay 


wee 


1366 


*02-NOV-76 


000001 


40 
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;DRIVE TYPE REGISTER (RPDT) (#06) 


pTbOs } 
Bros 4 
OTO3= 10 
DTO4= 2 
OT0sS= 4Y 
DTO&= 100 
CrO7= e200 
OTO8= 400 
DRQ= 


000 
NBA= 100000 


GaN Wee Ngee 6H 
DRIVE TYPE NUH Bit 5 
Bae Tt TYPE NUMBER R ET : 
T8 
T9 


; DRIVE TYPE NUMBER B 
: DRIVE er NUMBER B 
DRIVE TYPE NUMBER B 
;DRIVE eT peu UI 
;MOVING HEAD iy af ) 

TAPE DRIVE (BIT #14) 

;NOT BLOCK ADDRESSED (BIT #15) 


I 
I 
I 
R 
3 


;LOOK-AHEAD REGISTER (RPLA) (#07) 


;RPO4 ERROR REGISTER #2 (RPER2) 


EXTl= 1 
ExT2e= 2 

XT4= 

XT10= 10 
ExTe0= 20 
EXT40= 4 
SCl= 100 
SCe= 200 
SC4= 400 
$cid= 1000 
Sce0= 2000 
TRKI= 4000 
TRKe= 10000 
TRK4Y= 20000 
TRK1O= 40000 
RK20= 100000 
WCU= 1 
CSF= 2 
WSU= 
cSu= 10 
MSE= 20 
TOF= 
TUF= 100 
FEN= 200 
WRU= 400 
MHS= 1000 


0 
ACU= 100000 


oe 0 08 ot  CWREH OLS ETS 


AHH HHOCCC Us 2 ot 2 8 
pases aa an 


Opera ssleslesles] ss] 


rt, at et) st) eee ten tenant 


(#10) 
;WRITE a wate ( 
CU SINK atte URE (¢ 


;RPOS/6 ERROR REGISTER #02 (Reena) (#10) 


ED (BIT #11) 








DZRJEA.CMB  ‘O2-NOV-76 1 
1377 000001 
1378 00000e 
132 000004 
1381 Boone 
1382 000040 
1383 900100 
ee 
1386 001000 
1387 002000 
1388 004000 
1383 020000 
1390 
1391 
1392 
1393 000001 
1394 000002 
1395 0004 
1396 000010 
1397 000020 
2398 000040 
1399 000200 
1400 002000 
1401 004000 
1402 010000 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 000001 
1416 000002 
1417 000010 
1418 
1419 000040 
1420 000100 
1421 040000 
1422 100000 
1423 
1424 
1425 
1426 000001 
1427 0002 
1428 ate 
1429 Ol 
1430 
1431 040000 
1432 200000 
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RPO4/S/6 REGISTERS 


FMTe2= 


4 
10000 
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;WRITE CURRENT UNSAFE (BIT #0) 

5 SEL FE (BIT #2) 

Pe NT SW HITCH Were sett #3) 
TRANSITIONS PE TESTOR FAILURE (BIT #5) 
:T I NSAFE (BIT #6) 


OFFSET 25 MICRO INCHES (BIT #0) 
tOFFSET SO MICRO INCHES (BIT #1) 

ZOFFSET 100 MICRO INCHES (BIT #2) 
ZOFFSET 200 MICRO INCHES (BIT #3) 
tOFFSET 400 MICRO INCHES (BIT #4) 
OFFSET 800 MICRO INCHES (BIT #5) 
tOFFSET NEGATIVE (REVERSE) (BIT #5) 
;HEADER COMPARE INHIBIT (BIT #10)” 
ZERROR CORRECTION CODE INHIBIT (BIT #11) 


*FORMAT BIT (BIT #12 ~ 


;DESIRED CYLINDER ADDRESS (RPCA) (#12) 
(EACH BIT IS CALLED BY BIT NUMBER) 


; CURRENT CYLINDER ADDRESS (RPCC) (#13) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


;SERIAL NUMBER REGISTER (RPSN) (#14) 


;(EACH IS CALLED BY BIT NUMBER) 


;RPO4 ERROR REGISTER #03 (RPERS) (#15) 


;PACK SPEED UNSAFE (BIT #0) 
ore UNSAFE (BIT #1) 


NY UNSAFE EXCEPT READ/WRITE (BIT #3) 
;DISK tw ROTATION ERROR (BIT #4) 
AC LOW (BIT #5) 
DC LOW (BIT 


#6) 
:SEEK INCOMPLETE (BIT #14) 
OFF CYLINDER (BIT #15) 


;0C UNSAFE (BIT #0) 

WRITE AND OFFSET (BIT #1) 

;AC LOW (BIT #5) 

iD LOW (BIT #6) 
RATOR PLUG ERROR (BIT #13) 

;SEEK INCOMPLETE (BIT #14) 


PSU= 1 

VUF= 2 

UWR= 10 
PRE= 20 
ACL= 40 
DCL= 100 
SkI= 40000 
OCYL= 100000 
;RPOS/6 ERROR REGISTER #03 (RPERS) (#15) 
DCU= 1 

WA0= 2 
ACL= 40 
DCL= 100 
OPE= 20000 
SkI= 40000 
OCYL= 100000 





OFF CYLINDER ERROR (BIT #15) 
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| DIRTEA.CNE ©‘ O3-NOv-76 18:49 , RPO4/S/G REGISTERS 
1433 : 
1434 
1435 sECC POSITION REGISTER (RPECI) (16) 
| 1438 :(ERCH BIT IS CALLED SY BIT NUMBER) 
; 1438 :ECC PATTERN REGISTER (RPEC2) (#17) 
1423 : (EACH BIT IS CALLED SY BIT NUMBER) 
teas 3 RSEPERPSASASLERSESEASSSSSESSRSEFAESESS SLE SSSA EFELELESLSEFEFLSALESGSES 
bead 
a .SSTTL DEFINITIONS OF THE RH1L/RPO4/5/6 ADDRESS INDEXES 
a ‘ y RRRERARERA REE EREE SEALER EE EES EERE EEE ERED EERE EE EERE EELE SES EEEEEE 
~ 
1447 epo000 RPCS1=0 CONTROL AND STATUS REGISTER #1 (DRIVE REG. 
| 44g 900002 RPUC=2 WORD COUNT REGISTER (NOT A DRIVE REG) 
@ 000904 RPBA=4 SUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
| 1450 00008 RPDA= ‘DESIRED SECTOR/ TRACK SS REGISTER (DR 
1451 009019 RPCS2= ‘CONTROL AND STATUS REGISTER #2 (NOT A DRI 
1452 999012 RPOSI=12 :DRIVE STA REGISTER (DRIVE REG O01) 
1453 000014 RPERI=14 ERROR REGIS 1 (DRIVE REG. 02) 
} 1454 900016 RPAS=16 s ATTENTION PSEUDO REGISTER (DRIVE 
| “1455 Oo0020 RPLA=20 "LOOK AHEAD REGISTER (DRIVE REG. 07) 
1456 po0dz2 RPDB=22 ‘DATA BUFFER REGISTER (NOT A DRIVE REG.) 
| [457 900024 RPMR=24 sMAINTATNABILITY REGISTER (ORIVE REG. 03) 
| Jadg Oc00e6 RPDT=26 !DRIVE TYPE REGISTER (DRIVE REG. Ob) 
| 1459 000030 RPSN= “SERIAL NUMBER REGISTER (DRIVE REG. 10) 
| 1469 900032 RPOF= tOFFSET REGISTER (ORIVE REG. 11) 
1461 00034 RPCA= DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 1 
| Jupp 009036 eC= :CURRENT CYLINDER ADDRESS REGISTER (DRIVE REG. 1 
| 1463 900040 RPER2=40 SERROR REGISTER #2 (DRIVE REG. 14) 
| [44 poso4e = ERROR REGISTER #3 (DRIVE REG. 15) 
i} 00044 RPEC1=44 ECC POSITION REGISTER (DRIVE REG. 16) 
1366 00045 RPECO=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
| 168 LSBTTL TRAP CATCHER 
| 1479 p0cs006 = 
| 447i s*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 
| 447 t#SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
1473 sittin jHLOCATION 9) CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
| 4475 00174 gD0009 DISPREG: "WORD 0 s:SOFTWARE DISPLAY REGISTER 
14 009176 900000 SWREG:  :WORD O :: SOFTWARE SWITCH REGISTER 
1478 .SBTTL ACT11 HOOKS 
; 
14869 33 EPELLESPSESSELELLEESRERRTEERSS SL SRS ER REERA REARS RELEASE RA REL ERE 
1481 "HOOKS REQUIRED BY ACTI1 
| 1482 000200 SSVPC=. sSAVE PC 
CODO4E = oa 
1484 coco4_ oS6424 SeNAD ss 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
1486 o000Se2 een "WORD 20000 s;2)SET LOC.S2 TO 20000 
1467 600200 » =$SVPC 3; RESTORE PC 


ee oe ee eee eee EL I EL EL ET LL TT FE LE A TD ea 


— ore oe ne -m, 
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| DERJEA.CMB «= “‘OS-NOv-76 18:45 STARTING ADDRESS = 200 

| 4483 /SBTTL STARTING ADDRESS = 200 

| 3482 000200 900137 902064 IMP START ;START THE PROGRAM 

ett .SSTTL START THE PROGRAM AND CHANGE THE RHI1 ADDRESS = 204 

! ie po0204 900137 02072 IMPs STARTI ;START AND CHANGE THE RH11 ADDRESS 


Oe See S sate te ee 





Om nt eee ae ee ee eres 
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DZRJEA.CNB Oe-NOV-7E 18:49 COMMON TAGS 


1398 .SBTTL COMMON TAGS 
1500 33 RRERESRARSAAEAERERKEKALALALSAERSE RE RREKKLHEAA KE LHALEES LALLA FSSES 
Ea ‘STHIS TABLE CONT Ns VARIOUS COMMON STORAGE LOCATIONS 
1 , 2 
1504 901100 21100 
150S 001100 SCNTAG: START OF COMMON T 
1506 001100 900000 SPASS: .WORD O js CONTAINS PASS COUNT 
te0g So1103 900 SERFLG; “BYTE 0 SS CONTAING ERROR FLAGS 
1509 001104 900000 SICNT: .WORD 0 is CONTAINS SUBTEST ITERATION COUNT 
yeie Bete Boosen StPERR: “WORD ST ONTAINE SEOPE RETURN FOR ERRORS 
1el¢ 001112 o00000 SERTTL: .WORD 0 is CONTAINS OTAL ERRORS DETECTED 
iSi3 001114 000 SITEMB: .BYTE 0 *:CONTAINS ITEM CONTROL BYTE 
1514 001115 001 SERMAX: .BYTE 1 :;CONTAINS MAX. ERRORS PER TEST 
ISIS 001116 goqc0g SERRPC: .WORD O ::CONTAINS PC OF LAST ERROR INSTRUCTION 
He Bue Boe ia eS eivrate motes Oe +S? opie 
1518 001124 00000 SGDDAT: :WORD 0 >:CONTAINS ’GOOD’ DATA 
1519 00112 oo0000 SBODAT: . WORD : ss CONTAINS "BRD" DATA 
1521 O0113e rere Pe “HORD 0 és _ 
1522 001134 000 TOB: :BYTE 6 ssAUTOMATIC MODE INDICATOR 
1523 001135 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
1525 001140 ee : “HORD DSWR s;ADDRESS OF SWITCH REGISTER 
1526 001142 177570 DISPLAY: .WORD DDISP ::ADDRESS OF DISPLAY REGISTER 
| 3527 oo1la4 177560 $TKS: 177560 2: TTY STATUS 
1528 OO1146 1 STKB: 177562 7 2: TTY BUFFER 
ibes 001159 177564 Sips: 177564 ssTTy PRINTER STATUS REG. RODRESS 
lea) poliea 77388 Swi: hy 3 ;CONTAINS RULE CHARACTER FOR FILLS 
| fees pee Be sitta: BE Go MOAT ert CHRASS RETER A oLTRE Eee 
| 1534 Bolle? 00 STPFLG: .BYTE 0 33" TERMINAL AVAILABLE” FLAG (BIT<O7>=O=vES) 
co enna sma” ST OMICH.. SREGD) HAS OBTAGNED 
| 157 901162 990000 SREGO: WORD 0 SSCONTAINS ((SREGAD)+0) 
| 7238 Dorie poposo STHPL: “WORD teen INED 
! 1540 001170 000000 & : .WORD OQ : sUSER 
_ | S41 001172 000000 ares -WORD O :;USER ep 
| fas oaLi7e reeed Stine — THRO” REMBCROF ITERATIONS 
1544 O01 Uri: ESCAPE ON ERROR ADDRESS 
| 1545 O0le0e rary 000377 : . 2 ¢207><377><377) $F Feoe OR BELL 
ee Bie te ae: edt do ORAS Ret 
| Sug tet poonts SLF: “Bee (12> **LINE FEED 
1549 ee PEPE TETOSTSTITETT TTT TTT TTT TTT TITEL TTTST TT OTT TTTTeT TTT TT TTT Ty 
| tee 13 re - 3 
ih § 
tees 001212 1725 + CSR: -WORD 172540 ;ADDR OF KW11-P STATUS REGISTER 
| 41553 001214 t7e642 SLKCSB: :WORD 172542 ADDR OF KWll-P COUNTER BUFFER 
















= 
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PVEC: .WORD 1 SADR OF KWI1-P VECTOR 
Le RM ADDR OF KiTToL. & BTUS REGISTER 


w 
ba 
~ 
“I 
uw 
+s 
o 


SLLVEC: .WORD 100 ADDR OF KW1i1-L_ VECT 


ggegess 3 


Oo & b+ b= 8 + 0 &— Bb bP > = &  § = bs B— = 0 b> = ps pe pe 


IF olen TIME COUNTER 
$HATCH DOG TIMER LOCATION 


a. 
l 
i i 
PORTA: : S OF PORT A 
tea PORTS: ADDRESS oF PORT B 
13 he AACR BIRD CT Oe 
PTNBR: TA T ADDRES RROR TYPEOUTS 
Ses SEIZPT: iON TAINS THE ADOREES OF THE SEIZING BORE 
1563 OPP RT: EONTAL INS THE ADDRES SOF I 4 PE pbOSTTES PORT 
1565 CKERR: | iT chs A Oi tL sae OCCURRED 
1566 NOSEIZ: THE IN ’SEIZPT’ DID NOT SEIZE THE ORIVE 
567 RELE THE PORT IN ELST DID NOT RELEASE THE DRIVE 
569 


INSTT R OR TRB R ET RoMa NEUE 





OOOO OOOOOOBOOOO 0000000 


S8888888SS8S8SSEss 
pussssssssssseseeauenas 


570 TIMEA: ME OUT MEASURED THROUGH PORT A 
571 TIMEAP: SPORT At IMEQUT VALUE + 25% 
ae ee as INRdoeage Se osm vee or 
eri tt Ps ‘Boer Ne MEOUT V ue? 
578 Hee: 3695 Base toe Yih OUT ONE-SHOT RETRIGGER TEST 
KYBCTL: SINGLE TEST INDICATOR 
CHGADR :CHANGE THE RH11 ADDRESS INDICATOR 


5 AMEE HEME REM RHE AR HE EE REE AE EEE EER EER EEE EE EERE EE 
-SBTTL RHi1/RPO4/S/6 UNIBUS AND VECTOR ADDRESSES 
5p RAMA RAM RIERA EER EA RHEE ERE EERE EERE EEE EERE 


pote 176700 SRPADR: .WORD 478700 ;RH31/RPO4/S/6 UNIBUS ADDRESS 


oodes4 SRPVEC: .WORD ;RH11 INTERRUPT VECTOR ADDRESS 





0 20-20-69 b+ OB B-2 & » hb & = § 2 & -2 H—2 Hh 2 & 2 Hf eB Hp 


BeRREORE Ba 
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| 
' 


ee re ae re ements =o. 














1589 ~SBTTL ERROR POINTER TABLE 


s#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*#THE INFORMATION  * OBTAINED BY USI i THE INDEX NUMBER FOUND IN 
LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*#NOTEL: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 


~ 
on 
= 


UIUTUIUTUTU 
PRLS 





;REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WA 


o 
$s5 
patent ag 


MD- SDERIE-A, Dual CONTR R LOGIC TEST - PART 1 MACY!1 27(1006) O2-NOV-76 18:42 PAGE 31 
poatea. =NOV=76 18: :4 ERROR POINTER TABLE 
l 
1 
: 
; : #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1597 s# EM ;;POINTS TO THE ERROR MESSAGE 
1598 + DH *POINTS TO THE DATA HEADER 
1599 :# OT tEPOINTS TO THE DATA 
1609 - DF :POINTS TO THE DATA FORMAT 
1602 
1603 001304 SERRTB 
1604 
1605 ERROR 1 
1607 001304 062506 EM1 sWRONG DRIVE TYPE 
1608 001306 O66544 Du 
1608 9933:5 O7o30e OT] 
1610 001312 970552 OF1 
igle ERROR 2 
1614 001314 062527 EMe2 DRIVE NOT ON LINE 
16iS 001316 O66544 OHI 
| 1616 001320 970302 OT1 
1617 001322 070552 OF 1 
1643 ;ERROR 3 
| 1621 001324 062551 EM3 ;SERIAL NUMBERS NOT THE SAME 
| 622 001326 O66615 DH3 
| 1623 001330 O70316 OT3 
bes 001332 070552 OF1 
| ibe ;ERROR 4 
| 16828 001334 06633 EMY sDRIVE NOT SEIZED BY PORT ’N’ © 
| 1629 001336 re DH4 
| 1630 901340 070364 pT? 
| ibs 001342 070565 ? 
i sERROR 5 
| 1635 001344 Ob2664 EMS ;WRONG STATUS SEEN BY THE SEIZING PORT 
| 1636 001346 067007 DHS 
| 637 001350 O70 DTS 
| 4638 001352 OFS 
| 43639 
| 1640 ERROR 6 
| Teva 901354 
es Be Bee 
1 001360 


ee 
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peattar UNS 3 18:45 ERROR botN th T BLE 
1645 001362 070557 DFS 
1646 
1647 sERROR 7 
164 001264 32 EM7 sREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 
1650 001366 067063 DH? 
1851 001370 970364 017 
1652 001372 07 DF? 
1653 
1658 sERROR 10 
1656 001374 0963113 EM10 sREGISTER CONTENTS INCORRECT 
1857 001376 067007 SHS 
1658 OO!400 970232 OTS 
1659 001402 070557 DFS 
1660 
i661 ERROR 11 
1663 001404 063143 EM11 sCONTROL BUS PARITY ERROR WHILE READING REGISTER 
1664 001406 067206 DH11 
1665 001410 070302 OT} 
lob 001412 970552 OF 1 
1668 ERROR 12 
| 1870 001414 063227 EMle2 ;DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 
1671 001416 067753 DH36 
672 001420 070472 D137 
1673 901422 
1674 
1675 : sERROR 13 
1677 001424 063277 EMi3 ;*VOLUME VALID’ BIT NGT SET SY READIN PRESET 
1678 001426 067257 DH13 
1678 001430 070404 DT13 
1680 001432 070557 5 
1681 
1pas sERROR 14 
1684 001434 063364 EM14 ;*VOLUME VALID’ SET ON THE OPPOSITE PORT 
1685 001436 067257 DH13 
1685 001440 070404 DT13 
1687 001442 070557 OFS 
| 1689 ERROR 15 
i 4691 001444 063427 EMIS :THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 
| 1692 001446 067063 DH? 
i 1693 601450 070364 br? 
| 1694 001452 070565 
| 1695 
| 169% sERROR 16 
| 1698 001454 EM16 sATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET 
| 1699 001456 067063 DH? 
1700 O01460 070364 O17 
| 
| 
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1701 001462 070565 OF? 
1702 
1703 sERROR 17 
170S O01464 063561 EM17 sATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET 
1706 OO1466 0687063 DH? 
1797 001470 970364 017 
1708 001472 070565 OF? 
1710 ERROR 20 
1712 001474 063640 EM20 sDRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 
1713 001476 067753 DH36 
1714 001500 070472 0137 
1715 001502 DF 36 
1716 
i712 ERROR 21 
1719 001504 063720 EM21 ;DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 
1720 001506 067753 DH36 
1721 001510 O70472 D137 
1722 001512 
1723 
72s ERROR 22 
1726 001514 EM22 ;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 
1727 001516 067377 DHee 
1728 001520 22 OTe 
1729 001522 070574 OF 31 
73 ERROR 23 
1733 001524 064060 EM23 ; TIMEOUT CLEARED THE DRIVE’S ERROR BIT 
1734 001526 067475 DHe3 
1735 001530 070434 OTe3 
17% 001532 9070552 OF I 
1738 ERROR 24 
1740 001534 064126 EM2e4 sRELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 
1741 00153 067475 DHe3 
1742 001540 070434 OTe3 
| 1743 001542 O70s52 OF I 
| 1744 
| [745 
7b | ERROR 25 
| 1748 001544 O64205 EM2S ; TIMEOUT ONE-SHOT DID NOT RETRIGGER 
| 1749 001546 067753 DH36 
i 4750 001550 O704e2 OT36 
| 1751 001552 070600 DF 36 
| Rs 
1764 ERROR 26 
| 1756 OO01SSY O&4250 EM26 sDRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 





| 


EM36 ; TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
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1757 001556 067377 DH22 
1758 001560 070422 DTee 
1759 001562 070574 OF31 
1760 
176 ERROR 27 
1288 Oo1564 4335 EM27 ‘REGISTER WRONG AFTER RELEASE WITH REGUEST SET 
1764 O01 7063 DH? 
1765 001570 070364 O17 
1766 001572 o70565 DF? 
1768 ERROR 30 
1 001574 064413 EM30 :DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 
1771 001576 067753 DH36 
1772 001600 O7D4be OT36 
1773 001602 OF 36 
1774 
1278 ERROR 31 
1777 001604 064510 EM31 sDRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SE 
1778 001606 067654 DH31 
1779 001610 07045c DT3! 
1780 001612 070574 DF31 
| 1782 ERROR 32 
ez 1614 c EN32 sATTN BIT WRONG AFTER RECALIBRATE COMMAND 
ioe Polpte pb eReS DHS , 4 
1786 001620 32 DTS 
1787 O0lb22 070557 DFS 
| 1788 ERROR 33 
oa 001624 064636 E33 sDRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE ORI 
| 1792 O0l6e6 067753 DH36 
1793 001630 970462 DT3é 
| 4294 O0163e OF 36 
1795 
| 179% sERROR 24 
1798 001 yy M34 sDRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE OR 
«1588 Bolese Berees ¢ 
' 4800 O01640 070462 _ DT36 
1801 001642 O70600 DF 36 
| 1603 sERROR 35 
| 1805 001644 065043 EM3S sDRIVE RETURNED TO NEUTRAL WITHOUT TRIGGERING TIMEOUT ON 
| 806 OO1646 067753 36 
' 4807 OO1650 070472 D137 
| iets 001652 070600 DF 36 
' 381 sERROR 36 
| 1611 
| 1812 OO01654 ObS122 
1 
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DZRJEA.CMB ‘O2-NOV-76 19:49 ERROR POINTER TABLE 
tay Sele icc? ae 
ieic Botees brbees bree 
1816 
1812 ERROR 37 
1819 OO1664 965174 £N37 DRIVE IS NON-EXISTENT 
1820 001666 e753 DHS 
tes BpteS pata fers 
1823 
1824 sERROR 40 
1826 O01674 of6se42 EM4O ATTENTION FOR PORT NOT RESET BY MASSBUS CLEAR 
1827 001676 O86544 OH1 
1828 001700 070434 0723 
1829 001702 0O70SS2 OF 
1830 
1831 ERROR 41 
1833 001704 065317 EM41 s TIMEOUT CLEARED ATTENTION BIT 
1834 001706 067475 DH23 
1835 001710 070434 DTe3 
1836 001712 O70S5e 1 
1837 
1838 ERROR 42 
| 16840 001714 065361 EM42 sDRIVE NOT IN NEUTRAL OR SEIZED 
1841 001716 070002 DH42 
1842 001720 070502 DT42 
1843 i722 070603 OF42 
1845 ERROR 43 
| 1847 001724 065447 EM43 -DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 
| 184@ 001765 O7000e OH42 
1848 001730 070502 DT42 
| 1850 001732 970603 DFY2 
| 185¢ ERROR 44 
1854 001734 ossse4 EM4Y4 ;WRITE ATTENTION BIT DID NOT SET PORT REQUEST 
| 4855 001736 070021 DH44 
| 1856 001740 070450 DT31 
! 1887 001742 070574 DFal 
1859 ERROR 45 
| 1861 001744 O&SE01 EMYS CONTROLLER SELECT SWITCH ON DRIVE NOT IN °A/B’ 
| 662 001746 066544 DH1 
| 1863 O01 070302 OT 
| 1864 001 070552 OF 1 
| 1865 
1866 ERROR 46 
| 1868 001754 O&SEE0 EMY6 sCAN’T ACCESS DRIVE THROUGH EITHER PORT 
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1869 001756 070117 DHY6 
1870 o01760 070810 OTHE 
1871 001762 70574 OF31 
1805 
13 ERROR 47 
1875 001764 965727 EM? SATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT 
18 1766 De74 BH23 
18-2 001770 70434 0123 
1878 001772 0: OF I 
1879 
1880 ERROR SO 
1882 001774 OS6C1S EMSO SATIN BIT FOR OPPOSITE PORT CLEARED BY MASSBUS INIT 
1883 001776 087257 OH13 
1884 002000 9704 OT13 
1885 02002 OFS 
1886 
1887 ERROR 51 
1889 002004 066100 EMS! SATTN BIT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 
1880 02008 057007 DHS 
1891 002010 970332 OTS 
1892 02012 &F 
1893 
1894 ERROR 52 
1898 002014 066162 ENS2 SATIN BIT SET AFTER TIMEOUT, *ERR’ SET, NO REQUEST 
1897 02016 067257 DHI3 
1898 002020 04 OT13 
1889 070557 OFS 
180 sERROR 53 SCAN’T READ ATTN BIT FROM OPPOSITE PORT 
1903 002024 066261 EMS3 
1904 002025 067475 BH23 
1905 002030 0O70302 OTL 
190 Ode032 070562 OF1 
1908 sERROR SH 
1310 902039 Ose342 EMSY sRELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING P 
1911 002036 0673 BH22 
| 1912 002040 oO70522 OTS4 
| 1813 Ooeo¥e 070574 OF31 
| 1915 ERROR 55 
1917 02044 066435 EMSS s TIMEOUT ONE-SHOT IS LESS THAN SOO MS 
i 918 O0204% O70215 OHSS 
| $919 Q020S0 070534 ores 
| 1920 070605 OFS 
1921 
1322 sERROR Sb 
| 1924 02054 cEEso2 ENSG ;RH11 DIDN’T RESPOND TO ADDRESSING 
t 
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1925 002056 070273 DHS 
1926 002060 070546 OTS 
1927 002062 070611 DFS6 
1929 
ig3g 
133) ; 5 REKLEFE REA RERA LEA ARE LE ERE LER ELLER EL ERE LES REEELERERERA REALL EREREE 
1933 .SBTTL STARTUP AND INITIALIZATION ROUTINES 
ioe s 5 RRERRER ERLE LALLA LEAKE EE REEL AA LLL EAE LEE ELE RARER EEE REEL ELELLERE 
1937 002064 005037 001276 START: CLR CHGADR sCLEAR THE *CHANGE RH11 ADDRESS’ INDICATOR 
1938 002070 000403 BR START2 360 T0 x 
1939 002072 012737 177777 001276 STARTI: MOV #-1, CHGADR *SET THE "CHANGE RH11 ADDRESS’ INDICATOR 
1940 002100 START2: RESET ‘CLEAR THE BUS 
1941 “SBTTL INITIALIZE THE COMMON TAGS 
1942 :;CLEAR THE COMMON TAGS (SCMTAG) AREA 
1943 O02102 012706 901100 MOV #SCMTAG, Ro s LIBS LOCATION TO BE CLEARED 
1944 002106 o0S026 CLR (R6)+ ‘CLEAR MEMORY LOCATION 
1945 002110 022706 001140 CMP #SWR,R& ;;DONE? ° 
194 002114 001374 BNE 6 :sLOOP BACK IF NO 
1947 002116 012706 001100 #STACK, SP *:SETUP THE STACK POINTER 
1ayg ss INITIALIZE A FEW VECTORS 
1949 002122 056670 00020 MOV #S$SCOPE, JBIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
1950 002130 012737 go0022 MOV #340, a8 LOTVEC+2 ; (LeveL 
1951 002136 012737 OS7le2 000030 MOV SSERRO R,deENTVEC ; en VECTOR FOR ERROR ROUTINE 
1952 ‘be144 012737 000340 o00032 MOV #340 SHeRTVECe ;ilEve 
1953 152 012737 061722 000034 MOV #STRAP, JHTRAPVEC : ts MECTOR FOR TRAP CALLS 
1954 002160 012737 O00340 000036 MOV #340 at RAPE; LEVEL 
1955 002166 013737 056270 OS626e2 MOV SENDCT, $ -SET Fp ” END-OF -PROGRAM COUNTER 
1956 002174 005037 001176 CLR STIMES. t TINITIALIZE NUMBER OF ITERATIONS 
1957 002200 001200 CLR SESCAPE >:CLEAR THE ESCAPE ON ERROR ADDRESS 
| 1958 12737 000001 001115 MOVB #1, SERMAX Hy ONE ERROR PER TES 
1959 O02212 012737 O0e2212 001106 MOV a. , SLPADR *INITIALIZE THE LOOP RODRESS FOR SCOPE 
1960 001110 MOV #. ,SLPERR : SETUP THE ROR | 
1961 s3SIZE FOR A HARD SWITCH gectiten IF NOT FOUND OR i 3 
196¢ *:EQUAL TO A “=1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
1 002226 013746 O00004 MOV DKERRVEC, -(SP) i; SAVE, ERR OR VECT 
1964 002232 012737 O02266 o00004 MOV #64 aHEARVED *SET UP ERROR VECTOR 
1965 002240 012737 177570 001140 MOV #0S tee TUP FOR A HARDWARE SWICH REGISTER 
1966 O022% 012737 177570 OO1142 MOV abIsh DISPLAY *:AND A HARDWARE DISPLAY REGISTER 
1967 002254 022777 177777 176656 CMP #-1, ISWR 2: TRY TO REFERENCE HARDWARE SWR 
1968 O02262 001012 BNE 66$ 33BRANCH IF NO TIMEOUT TRAP OCCURRED 
| 1969 *AND THE HARDWARE SWR IS NOT = -1 
1970 002264 o00403 BR 65S BRANCH IF NO TIMEOUT 
1971 002266 012716 o02274 64S: MOV #655, (SP) *:SET UP FOR TRAP RETURN 
1972 O02272 o00002 RTI 
1973 ones? 012737 000176 001140 65$: MOV yiiPOINT TO SOFTWARE SWR 
| 1974 012737 000174 O0114e MOV sOHeeREE DISPLAY 
1978 002310 012637 OO0004 66$: MOV (SP)+,a"ERRVEC ;;RESTORE ERROR VECTOR 
| 4977 poe314 o0se27 177777 INC tel SFIRST START ? 
| 1978 002320 00100e BNE Ig NOT 
| 1979 O02322 104401 oO62010 TYPE TITLE t TYPE PROGRAM NAME 
| 1980 002326 004737 060332 1S: JSR PC, STKINT SETUP THE tty KEYBOARD 
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ise .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
13 002332 005737 cooo42 TST dave ;;ARE WE RUNNING UNDER XXDP/ACT? 
002336 001006 BNE 67$ BRANCH IF YES 
134 002340 At 001140 000176 CMP SR, #SWREG SOF TUARE SWITCH REG SELECTED? 
1885 002246 001005 BNE 68S ::BRANC 
1986 002350 104406 GTSWR *2GET SOFT~SWR SETTINGS 
1987 O023S2 900403 R 8S 
1988 boe354 112737 000001 001134 67s: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
1990 O02 004737 002754 JSR PC, CHANGE sCHECK/CHANGE THE RH11 ADDRESS 
1991 002366 104401 062117 TYPE  ,ENTERA ENTER DRIVE ADDRESS 
1992 002372 104412 RDOCT GET THE ADDRESS 
1993 002374 012637 001224 MOV (S?)+, PORTA STORE THE ADDRESS 
1994 002400 023727 001224 on0007 CMP PORTA. #7 *SEE IF ADDRESS TOO LARGE 
1995 002406 1014 BLOS «6s oS *BR IF NOT 
1996 002410 104401 062147 TYPE ADRERR ; TYPE ADDRESS ERROR MESSAGE 
1997 002414 00744 BR 3 ~ Y N 
1998 002416 013737 001224 001226 2S: MOV PORTA, POR"B t GENERATE THE PORT B ADDRESS 
1999 002424 005237 O0le26 INC PORTB’ INCREMENT THE ADDRESS 
2000 002430 042737 O00016 o0l226 BIC #16, PORTB *LEAV 
2001 002436 013746 MOV PORTA, -(SP) *PUT PORT A ADDRESS ON THE STACK 
2002 OO02442 042716 177771 BIC ##C6, (SP) j SAVE BITS 182 
e003 O0e446 052637 001226 BIS (SP)+. PORTB Teris TS : ‘ 2 IN PORT B ADDRESS 
Ooe4Se 104401 O62171 TYPE PORTAIS iFboR DDRESS IS ’ 
2005 002456 013746 O01224 MOV PORTA, -(SP) :: SAVE PORTH FOR TYPEOUT 
2006 $3 T A_ADDRES 
2007 o02462 104403 TYPOS GO TYPE--OCT AL ASCII 
2008 O02464 001 .BYTE 1 55 TYPE 1 DIGIT(S) 
2009 OO2465 000 “BYTE O Bu PPRESS LEADING ZEROS 
2010 OO2466 104401 062217 TYPE PORTBIS PORT 8 ADDRESS IS ’ 
2011 O0e472 013746 OO0le26 MOV PORTB, -(SP) >;SAVE PORTB FOR TYPEOUT 
2012 55 TYPE PORT B ADDRESS 
2013 002476 104403 TYPOS 260 TYPE--OCTAL ASCII 
2014 002500 001 .BYTE 1 ;;1YPE 1 DIGIT(S) 
2015 002501 000 : ‘BYTE 0 : j SUPPRESS LEADING ZEROS 
2016 O0eS02 104401 001207 TYPE SCRLF *ANOTHER CR-LF 
e017 O0e506 013737 goles 001230 Nov PORTA, PORTC /GENERETE ADDRESS OF DRIVE NOT TESTED 
2019 peels peerae ey BIC #+07 BORTC i SAVE BNE LOWER BIT 
2020 902530 013701 001224 MOV PORTA. R1 “USE PORT A ADDRESS AS INDEX 
2021 002534 116137 070726 001232 MOVB  ATABIT(RI),ASRI *;GET ATTENTION BIT FOR DRIVE 
2022 O0eS42 005037 001256 CLR TIMEA ;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
2023 905037 001260 CLR TIMEAP :CLEAR TINE OUT 9 ONE-SHOT VALUE LOCATION 
2024 1264 CLR TIMEB CLEAR T ONE-SHOT VALUE LOCATION 
| 2025 002556 005037 001266 CLR TIMEBP CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
e0eb goe5be 0047 444 ISR PC, CKCLK SETUP CLOCK 
1 602 IMP EXEC ‘CLOCK HAS BEEN STARTED 
2028 002572 104401 Obec4s TYPE , NOCLOCK *NO CLOCK ON SYSTEM 
2029 002576 OO0c00 38: HALT *FAT RO 
| 2030 002600 000776 BR 3 INTERLOCK THE HALT 
| e032 ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 
| 034 02602 o00005 EXEC: RESET ;CLEAR EVERYTHING 
| 2035 002604 005037 177776 CLR PS sCLEAR THE PROCESSOR STATUS WORD 
| 2036 002610 104401 001207 TYPE  ,S$CRLF :CR- 
} 
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2037 002614 013700 001300 MOV SRPADR, RO sRH11 ADDRESS FOR INDEXING 

2038 002620 012706 001100 MOV yes SP *LOAD STACK POINTER 

2039 O026e4 004737 OS6444 JSR KCLK *START THE CLO 

040 002630 o0024 NOP “RETURN IF_NO CLOCK 
O41 O0c632 004737 060332 JSR by STKINT ‘INITIALIZE THE KEYBOARD 

2042 002636 005037 001274 CLR KYBCTL *CLEAR SINGLE TEST INDICATCR 

2043 O02642 905037 501100 CLR Spasse CLEAR THE PASS COUNT 

2044 O02646 112737 000001 001115 MOVB #1, SERMAX :SET max TO 1 

2045 002654 012737 002654 001106 MOV #. , SLPADR INITIAL SETTING FOR LOOP ADDRESS 

2045 O0ebb2 Ole737 OOebbe 001110 MOV t. ,SLFERR INITIAL SET TING FOR LOOP ON ERROR ADDRESS 

2047 002670 104401 062314 1S: TYPE ,TESTN ASK FOR TEST NUMBER 

2048 002674 104412 RDOCT *GET UM BER 

2049 002676 01260! MOV (SP)+,R1 *PUT ENTRY INTO Ri 

2050 002700 ooico2 BNE eb} "BR IF NOT ZERO 

2051 000137 003070 IMP TST sEN TER ZERO - PERFORM ALL TESTS 

2052 020137 070736 2S: CMP R1, MAXTN *SEE IF NUMBER GREATER THAN MAXIMUM 

2053 O0e712 003403 BLE 3$ *BR IF L LESS OR EQUAL 

2054 0027149 104401 062334 TYPE BADNO *BAD ENTR 

2055 002720 090763 BR G3 : TRY AGAIN 

e056 d02722 005301 3$: DEC Ri sDECREMENT ENTRY 

724 1 ASL Ri >SHIFT IT LEFT 

2058 002726 016137 O70612 002752 MOV TSTADR(RL) 4S jGET THE TEST ADDRESS 

2059 002734 005237 001274 INC KYBCTL :SET SINGLE TEST INDICATOR 

2060 002740 012727 000001 001104 MOV #1, SICNT *PRESET ITERATION COUNT 

2061 002746 000177 OoD0000 IMP ag GO TO THE SELECTED TEST 

e062 O0e7S2 oo0000 4S: .WORD QO : TEST OApDRESE GOES HERE 

soe ;CHANGE THE RH11 UNIBUS ADDRESS USED BY THE PROGRAM 

2066 002754 005737 001276 CHANGE: TST CHGADR sCHANGE THE ADDRESS ? 

2067 002760 001421 BEQ 3$ *BR IF NOT 

2068 O02762 005037 001276 CLR CHGADR i CLEAR THE INDICAT 

2069 002765 104401 062374 1S: TYPE ADDRIS YPE OUT WHAT THE OBRESENT ADDRESS IS 

2070 002772 013746 001300 MOV $RPADR, -(SP) bPuT THE anDReSs ON THE STACK 

2071 0020776 104402 TYPOC ;TYPE THE ACTUAL ADDRESS 

2072 O03000 104401 001207 ' TYPE ,SCRLF 

2073 003004 104401 O62454 TYPE {NTRHIJ ASK FOR NEW ADDRESS 

2074 003010 104412 RCOCT 

e076 003012 0057116 TST (SP) OR *CR’ ENTERED ? 

003014 0014 BEQ 2 BR IF EITHER ENTERED (NO ADDRESS CHANGE) 

2077 003016 011637 001300 MOV (SP SRPADR 11 

2078 7ee 2s: TST (SP p)s {CORRECT rate TACK POINTER 
1 003044 o00004 36: MOV ;LOAD T 
| 2080 003032 013700 001300 HOY SRPADR. RO SRHIT. ADDRESS. 

2081 003036 005760 o00002 TST RPWC(RO) :SEE I RHI1 RESPONDS AT THAT ADDRESS 
| pOB2 O03042 o00404 BR 5S BR, RH11 ALIVE AT PRESENT ADDRESS 
| 5088 003044 104056 4g: ERROR 56 NO’ RESPONSE TO ADDRESS 
| 2084 06 coo004 ADD #4, SP *RESET THE STACK POINTER 

2085 002052 000745 BR 1$ GET ADDRESS AGAIN 
' p086 003054 012737 O0000E opngo4 ss: MOV #6, 084 {RESTORE THE VECTOR 
| e087 003062 000207 RTS PC : RETURN 
spas $ ; RHRRRRRAAAAAAAAELALA LAL ELALALRAA ALA LLE ALLELE RE RAE ELRARLLLALALAE 
| 2091 -SBTTL ##* TESTS xx 
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gps 33 EREEPERERED ERED SEED ERER ERED ESSER ERRESEREESR REED EEE SEEESSEES ESSE 
2035 ate 
ere 003064 013700 001309 TSTIAA: MOV SRPADR, RO ;;RESTORE RO AFTER END OF FASS 
39 : 5s SARERELARALALELATLERE SEE SELELKSLLAELESELERELE FRE LFLELEELS ELSE GS 
eva i STEST l DRIVE ACCESS TEST 
210] ;SVERIFY THAT THE ORIVE CAN BE ACCESSED THROUGH BOTH PORTS 
2103 '* A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
21049 + DRIVE IS A DUAL PORT RPOY. THAT THE DRIVE IS ONLINE (RPDS! HAS 
2105 :# "MOL", *PGM’. DPR’, 8 "DRY’ BITS SET), AND THE THE DRIVE SERIAL 
2:58 is NUMBER READ THROUGH’BOTH PORTS IS THE SAME. 
eis i B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
el 10 ¢ se SELEKAARELALESLELHELSRALELAASSLEFRLEKSRERSRAARESREREELASEASSEL FRE 
' 111 903070 Sei té71; 
2112 003070 005737 001274 TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
ste ee BOS BR te JUST ENTERED TEST 
| pLis anita 000137 ogz602 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
| pl16 OO2104 012727 1 001274 1S: MOV 8-1. KYSCTL :SET SINGLE TEST INDICATOR 
| e117 003112 112737 091102 2: MOVE 81, $TSTNM : TEST 
2118 003120 012727 142 001106 MOV STESTI,SLPADR  ;3LOAD LOOP ON TEST ADDRESS 
| 2@1189 003126 012737 003142 001110 MOV aTEST *LOAD LOOP ON ERROR ADDRESS 
| g120 003134 012737 001176 MOV #1. STIMES *:D0 1 ITERATION 
| giei 003142 012706 001100 TEST1: MOV aStAck, SP :LOAD THE STACK POINTER 
f ele3 ss SEFSLKFFLASLAFLAALLASREALAELEERALARAA ESSER SAA RLASAFS SERA PERELESELE 
gies : VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & 
| 126 OO3146 113769 001224 10 MOVB  PORTA,RPCS2(RO) ;SELECT PORT fi 
| ple? 003154 O01 001224 001234 MOV PORTA.PTNBR ;MOVE PORT SS TO LOCATION FOR TYPEOUT 
| e128 03162 eee 00001 TST RPDS tRO) sSEE IF DRIVE (PORT A) PRESENT 
| e123 00316 005037 oD1244 CLR “CLEAR THE *CHECK ERROR’ INDICATOR 
2130 002172 016037 0000i0 001126 MOV RPCS2(RO},SBDDAT’ :GET CONTENT RPC 
' p131 003200 012737 O00010 OOlle2 MOV S2,$B0ADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
| 132 003206 O60037 001 1ge ADD sADD_RH11 $s 
| p133 O032le 0011 CLR *WHAT REGISTER SHOULD BE 
| —£134 003216 013737 001126 001164 MOV SBODAT,STMPO —_:MOVE REGISTER CONTENTS TO ’STMPOQ’ 
2135 003224 042737 167777 001164 BIC ICNED, $7 SAVE SPECIFIED BITS 
glx 003232 001124 001164 CMP 's sCOMPARE THE BITS 
137 003040 001414 BEQ *BR IF OK 
| p138 003242 Br 3737 001126 001174 MOV SBODAT,STMP4Y § ;COPY "BAD DATA’ 
| p139 04 4 001174 BIC NED, STMPY sCLEAR THE MASKED BITS 
e140 1174 001124 BIS SINPA, SGDDAT i OR. WITH GOOD DATA FOR TYPEOUT 
| ele Oo3ebb 005137 001244 ~ c col CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
/ e144 b0s7 37 001244 ae CKERR ;WAS °NED’ SET ? 
| plas 1 BEQ +10 :BR IF NOT 
' e146 012760 oco0040 oDDn10 V #CLR,RPCS2(RO) ;ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
| 2147 00331 113760 001226 900010 MOVB PORTB,RPCS2(RO) ":SELECT PORT 
_ 2148 003316 01 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
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SEALE RAY TST RE EZ 
3324 IVE (PORT 8) PRESENT 
g135 $3850 boeasy Doreds ae Eepea RO EEE TF CRT E AcCe ERROR’ THDICATOR 
512) 16037 OO00010 001126 MOV RPCS2(RO), SBDDAT’ :GET CONTENTS OF RPCS2 
ses peasaa Bi S935 000019 OOllee HOV Se fot hal STER RODRESS OF ERROR MESSAGE 
te poaaeq Maik 1155 GISTER SHOULD BE 
sted 003360 913737 at 001164 ct 5 ee ROVE. FE GISTER CONTENTS TO ’STMPO’ 
el 042737 167777 OO1164 BIC StCNED, STMPO sits CIFIED Bit 
it, ikea 29737 001124 OO1164 ¢ SGODAT, STHPO s COMPARE THE pris: 
2i58 903402 OO14 ; a pine 
2159 003404 013737 001126 001174 MOV SEDDAT, STHPY 5COBY BAD DATA’ ri 
gio oes i BeS339 ates Bot tod Bre SrrP4, ScoOR T i708? WITH 60 GOOD DATA FOR TYPEOUT 
5ipe oa x beeess 001244 Bone EKERR >SET THE REGISTER COMPARE ERROR INDICATOR 
cite DoMSe Goss co1244 oes: KERR ;WAS *NED’ SET ? 
2165 OO3442 001403 BEQ +10 BR IF NOT ae 
2167 OOS444 012760 O00040 on0010 MOV #CLR,RPCS2(RO) ;ISSUE MASSBUS INIT TO CLEAR NED 
2168 
SESE RL ELSESSRAL ER RSHSSS EERE LELREESEREKE EER ESS ES AREER 
5i¢3 SAONFIRM THAT DRIVE IS AN RPO4/S/& AND IS DUAL PORT 
gti ) CT PORT A 
HS BRS ee RR BRB FRR SR Sd BAF UES ro toatz eon near 
| give netics nieces ppoase 001126 Sou RPOT(RO). SBODAT °:GET SOF RPDT 
| 2176 raed Olerae 000026 O0i122 may aRPOT ,SBOROR okt REGISTER ae ERROR MESSAGE 
sit ESE 01 poss 001124 AO #24020, SGDDAT ; (HAT FAY REGISTER SHLD RHUL : 
2179 aed piers athe: 001164 MOV SBDDAT:STMPO MOVE REG oFER CONTE CONTENTS S TO *STMPO 
| 2180 042737 ppnbeS 001164 BIC 810177774, STMPD iSave CIFIED B 
| BiBl DOS 34 023737 001124 001164 chp cm , STAPO i ie HE oF?! 
| te 003544 OL a7a? 001126 001174 MOV T, STMPY DATA 
2184 ina 177774 001174 IC ai77774 TMPY SLERR MASKED 81 15 
2185 ae 001174 001124 Bre STMP4, T OR WITH GOOD DATA OR TYPEQUT 
| sie i red 001244 Eon CKERR *SET THE SRECISTER COMPARE ERROR INDICATOR 
2188 003574 68S: NOP 
9000 MOVB TB,RPCS2(RO) ;SELECT PORT B 
| 5183 eee bt 155° aren MOV PORTE’ PTNBR ;MO nove PORT RDORESS T TO LOCATION. FOR TYPEOUT 
| p19) 1 HECK cK ERROR” 
| te nest t piss ‘s ak bt gabace er rel REGIS RODRESS oF ERROR MESSAGE 
| siz i SHOULD BE 
HE ee Ee GAS uN Fer ELE 0 os 
it 04 001164 BIC SeOOa Trt STMPD : CI IED BITS 
1124 001164 CMP T,STAPO) st 
it Gia BEQ *BR IF 
} 
2200 ny 001126 001174 MOV SBODAT,STNPY ¥. "BAD DAT 
ER ea Gee GR BURGE BC RAIS BA ae rca 
10400 ; 
ooo eat bostay oo1e44 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
1 
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"O2-NOV=76 18:49 Tl DRIVE ACCESS TEST 


0037e0 000240 70$: NUP 


Miiiiiiiiiitiiiititttiittiititiiiiiitiititttttietitiiite 
;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 


ae ; 


r 2e10 003722 11 001224 oo0010 MOVB PORTA, RPCS2(RO) ;SELECT PORT 
ell 0037 30 ale 8° 0012204 o01234 MOV PORTA A; PTNBR sMOVE P PORT TAOORESS To LOCATION FOR. TyPEOUT 
ssi 1 Sposts 001126 Sa ), SBDDAT’ idle e Con CON Nie or pepe LNOdCA < 
2214 Boars MBELEG Boule O0lize MOV ety RRAORORS TF ah aa OF ERROR MESSAGE 
ssie We 1000 001124 BV pte DAT wit 
ts 
5519 heared bara 001126 OO1164 MOV SBODAT SINFO ae TENTS TO ’STMPO’ 
2218 003776 042737 176777 OO1164 BIC #tCPGM, STMPO :sive™ 
2219 001124 OO1164 CMP GDDAT; STMPO Gee 
2220 OO4Ol2 001414 BEQ 2 
2221 OO4O14 013737 001126 001174 MOV SBODAT, STMP4 ind + BAO DATA’ 
2222 OO4022 042737 001000 601174 BIC PCM, STNPY :C THE MASKED BITS 
2223 OO4030 053737 001174 001124 BIS STMP4,SGDDAT  :'OR’ WITH GOOD DATA FOR TYPEOUT 
2224 04036 104045 ERROR TYPE ME 
2225 OO404O 005137 o01244 om CoH CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
sees SOaoNe Dosa? 001244 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
2228 OO40S2 016027 000012 001126 MOV 1(RO),SBODAT’ :GET CONTENTS OF 
2229 O04060 Die? 37 le OOll2e 8RPDS1.SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
D04065 ll2e ADD RO, SBDADR “ADD RH11 BASE ADDRESS 
2231 O0NG72 012737 O01 001124 SNOL'OPR!DRY,SGDDAT _;WHAT REGISTER 
£232 004100 013737 0011 001164 SBODAT , STMPO sOVE REGISTER CONTENTS TO ’STMPO’ 
004106 Ore? 167177 001164 BIC 8tC10S00,STMPO ;: SPECIFIED BITS 
2234 004114 001124 OO1164 MP SGDDAT,StMPO ;COMPARE THE BITS 
Ses Dovid 013737 001125 901174 Rov $00aT,sTMpy Copy’ "BAO DATA’ 
8 : 
| soe Boats eet 1 cae BIC Oe oO’ STH *CLE POE RaSkeD BITS 
| 2238 OO4140 053737 001174 O01124 BIS STMP4Y,S$GDDAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
| $535 Soares agers? oo1e4s cane’ ExeRR SET THE REGISTER COMPARE ERROR INDICATOR 
| 5B Doiss poses 748: NOP ’ 
|S GRU ES? Ie RRP PERT BSR "Soul EO LORE vo tocarrn con trea 
Bd 2 ee eee re 
| $5ue OO420N 012737 OOO0IS OD1I22 MOV BRPOS1 SaOAOR sFORH REGISTER ADRESS OF ERROR MESSAGE 
j 
7 oovele 12 ADD RO, SBDADR HLL BASE ADD 
2 ae 
O04, 2737 1e6 1164 BIC 8tCPGM, STMPO Se SETS ir is 
1124 001164 CHP T, STMPO 
| ay BEQ i 
1 001126 001174 MOV T, STMP4 OPY "BAD DATA’ 
001 001174 BIC 8PGM, STMPY MASKED BITS 
| 9265 001174 OO1i2e4 BIS STHPA, SGDOAT One WITH GOOD DATA FOR TYPEOUT 
| ES 001244 ~ con CKERR Tite THE WE REGISTER COMPARE ERROR INDICATOR 
| 259 004302 001244 CLR CKERR ;CLEAR THE CHECK ERROR’ INDICATOR 
| 2260 004306 016037 O000l2 001126 MOV RPDS1(RO),S$BDDAT’ ;GET CONTENTS OF RPDS1 
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ae 


A. DRIVE ACCESS 
GEL RIS LRG GRDDNR OOUEE ay RPERLRDAOR oR BEF ISESS OBESE EnPOR resi 
2263 12737 010600 001124 MOV ‘DPR! DRY, SGDDAT B 
coe tae tie BS aioe ap eee oT 
2258 pous0 23737 001124 001164 cre $co0AT, StrPo 
2268 004360 013737 001126 001174 MOV 7, STMPY 1 "BAD DATA’ 
e268 004366 010600 901174 BIC 810800;STMPY CLE MASKED BITS 
° ao 001174 001124 Bis $THPH, SGODAT i OR” WITH H G00 DATA FOR TYPEOUT 
este ated ; reid 001244 COM CKERR pts tree Rect RECISTER COMPARE ERROR INDICATOR 
004410 Spaeaa 788: NOP 
ec75 ; SREEERSESSESESERSERELALEEPER SSR PLS EL EES ERE ERE AE SSL LSE ELLE SERA LSE 
2276 *VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
sete 004412 11 001224 000010 MOVB c 
2279 aig 01 000030 001124 MOV Been CRED $eOnRT STORE Te THE PORT A SERIAL NUMBER 
2280 Dowie 1 001226 990010 MOVB PORTS (RO) CT PORT B 
2281 34 Ol 000030 001126 MOV RPSN(RO) Tt} THE PORT 8 SERIAL NUMBER 
eee bowie 023737 OOll24 001126 CMP SGDDAT,SBDDAT ; SAME ? 
csey DOMMES | SDHORS Eee BRT Tie ERROR 
2285 oo44s4 100000 174456 IT 8SW1S, ISWR ; ON ERROR ? 
2286 OO4G2 001001 BNE *BR IF SET - PROGRAM HAS ALREADY HALTED 
2287 OO4464 900000 HALT ;HALT, ,POSSIBLE CABLE CONNECTION PROBLEM 
2288 OO4466 OO0004 1S: SCOPE LOOP’? 
2231 : est 2 PORT A SELZE TIMEOUT Tec 
2292 sATEST PORT ’A’ SEIZE/TIMEOUT TEST 
soaq ke THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
2295 i THE DRIVE. 
| sos ii A. WRITE O's oBNTOF RPDS1 THROUGH PORT 'A’; VERIFY THAT THE DRIVE 
2299 i 
2300 *# B. READ EACH DRIVE REGISTER, EXCEPT RPCS1, THROUGH PORT ’B’; 
| 2301 is VERIFY THAT 0’S ARE READ FROM EACH REGISTER. 
ex03 :# C. WAIT FOR THE PORT TIMEOUT TO Occur AND RELEASE THE DRIVE. 
* MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
| e306 i val FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
PSIUE cegeeeusuausssasanaeneeneeeeeeeeeeenesessssssasaannnnnnneennti 
{ Ki $ 
i 9310 eae 005737 001274 TST KYBCTL ; PERF ORNING ONLY SINGLE TESTS ? 
31 74 O01 Q BR a NOT 
| St 1 J XEC TRETURNR GET NEcT TEST. NUMBER 
BE SE tee Kee Be Bie inet ite timae,r nolo 
| 2316 Soaeee 515937 oo4s42 O01106 MOV state, SLPAOR LOAD ON TEST ADDRESS 
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gig OSG REE BRE RINE YSTTRAREE tio goo pee sores 


a 
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2319 012706 : MOV neat k POINTER 
2320 Ole7 0240 177776 MOV asTaCK, ) FP eps eet PRIORITY TO S IN CASE LOOPING 
2321 Bieaas 001256 CLR TIMER “CLEAR TIMEOUT VALUE FOR PORT 
905037 1¢60 CLR TIMEAP ;CLEAR UPPER TIMEOUT TOLERANCE 
e363 ? O01 €LR TIMEAM CLEAR LOWER TIMEOUT TOLERANCE 
e325 s LHEKAKELELLLRAALALELA LAL LARLAALARALAL ELA AAA EAALLELAAAAELAALL ALES 
e326 a TART THE TIMER 
2328 004570 005037 001252 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
2329 904574 012737 003720 001254 MOV 82000.,WATCH  ;SET WATCH TO 2000 MS 
e331 5; RHRARAELELELLELELELSLRLLKLELELLRARLRELSSSSSLALAE EL LTTEREARAAAAEE 
e333 ;SEIZE THE DRIVE THROUGH PORT A 
2335 004602 113760 901224 000010 MOVB PORTA,RPCS2(RO) ;SELECT PORT 
2325 OO4610 O01 001204 001236 MOV PORTA; SEIZPT s STORE SEIZING PORT’S ADDRESS 
2337 OO4616 005060 000012 CLR RPDS1 ERO) 
5333 00490 Ol boise ooles4 HOV a ae PORT AbORESS TQ LOCATION FOR TYPEOUT 
2240 See pitas Bot SSe 001240 MOV 1B’ OPPRT *' 3 OPPOSITE’ PORT ADDRESS 
2341 OO4644 016037 000012 001126 RPDS1 (RO) , SBDDAT Rill ea IF DRIVE SEIZED BY PORT A 
| 535 ppacee 00% 5 001122 #RPDS1, : GiSTER ADDRESS 
2344 O04664 005037 001124 CLR SGDDAT REGISTER SHOULD BE ZERO 
| eat poe? bear 001124 001126 MP ; T, SBDDAT meee = 
1 Q gg IF IT I 
2347 004700 104004 ERROR 4 REPORT THE ERROR 
2348 dow7ue 000137 006066 ae IMP ss t BYPASS REST OF THE SUBTEST 
532g ; teed 113760 001224 000010 "  MOVB-~=—s- PORTA, RPCS2(RO) ;SELECT PORT 
Seavee prea? peneis boriee HOV ReDertRO eS jhove ae: fs 70 Loon SEES CORRECT STATUS 
| 5325 Bousss piovse birees porise HOV —«sSMOL'PGM!DPR! DRY T sEXPECTED STATUS 
004736 O13 001124 001166 MOV SGODAT,STMP1 ;USE GOOD DATA TAAS A MASK 
004744 137 O01166 COM STMP] ive tea EXPECTED STATUS 
bow7e0 13737 001126 DO1IE4 MOV SE0DAT TMPO THE ACTUAL STATUS 
DOf166 O01164 BIC 1 PS Ma 
004764 001124 001164 CMP SGDDAT, STMPO pNNPEETED. eFatus BITS SET ? 
bov77e 1 BEQ 
774 1 ERROR S Ewe Tre 
004776 000240 65S: NOP 


5 eREELERSSASE ERS RERSY EERE SKE ESE R ESE EKA ES SSS RAR LES ERE ARAL ES KSSH SS 
READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 


RR ues ia ta ery 


13760 001226 000010 MOVB TB, RPCSE(RO)  ;SELE 
1 01226 001234 MOV PORTER TO LOCATION FOR TYPEOUT 
14 LEONG MOV RPECeLROD mab) at ae BEEK?» BOR , FOR CHECK 
1 MOV RPECICRD) ): Bont ’ FOR CHECK 
16046 2 MOV (RO); =(SP) ; TER RPERS, PORT 8; FOR CHECK 
005030 01604 000030 RPSN(RO) ,~¢ ) SOT ORE ean R RPSN, PORT B, FOR CHECK 
005034 016046 MOV RPCC(RD),-(5P) STORE REGISTER RPCC, PORT B, FOR CHECK 


ee eee 
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OZRIEA. CNB “NOV-76 18:40 Te PORT 'A’ SEIZE/TIMEOUT TEST 


2373 pps040 alee po0034 MOV RPCA(RO),-(SP) ;STORE REGISTER RPCA, PORT B, FOR CHECK 
74 MOV RPOF (RO) | =(SP) i STORE REGIST ER RPOF, PORT CHECK 
e375 b05050 B1EONE 599040 MOV RPER2(ROS,-(SP) 35 STORE REGISTER RPERE, PORT 8, FOR CHECK 
378 1604 MOV RPLACRO), -(SP) ¢ PORT B, FOR CHECK 
2377 OOSCED 016046 SronSe MOV RPDT(RO) ,~(SP) se ORE REGISTER Rept Pont B, F OR CHECK 
537 3 oe NOV Oy tee) salons Bee TER RPER’ PORT BF 
5x0 Bpensa BIeDYe 14 HOY REM RD) (SP) +e TORE ReAiet FF RPERI, eBat 8, oF Oe 
2382 5p RRRRRAARSELALELALELE LES ALALSAALA ESA LALA LARA LA LAAE RELA RAL LEAS 
2383 _ WAIT FOR PORT A TO TIMEOUT 
005100 005760 ooDo12 "1S: TST RPDS1(RO) ;WAIT FOR THE DRIVE TO TIMEOUT 
fp IE eS ooze BY ron ere targe lt eens 
2388 reat; rie BNE 1$ _« BR'IF NOT ZERO 
fo HEI a omen Te oaee Nom tieurrtie Sears 
2391 Bpeiee Wiese 1 2s: MOV #(7%32.>,98PS  3SET 1OATTY TO a STOP CLOCK 
2392 005130 013737 001252 601256 V IME. TIMEA “SAVE THE ELAPSED TIME FOR PORT A 
23393 005136 004537 O0S6630: ISR RS, TOLER *CALCULATE THE T 
23% 005142 001256 WORD TIHEA ; TIMEOUT VALUE FOR PORT A 
2395 005144 012637 001260 MOV (SP)+,TIMEAP § :425% TOLERANCE 
| 2396 005150 012627 001262 MOV (SP)+;TIMEAM  $-25% TOLERANCE 
| 2398 : PETTITT TTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TT ETT ET TTETT TEC ESTE TET 
2399 “VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST SOO MS 
| Supt 005154 023727 001252 000764 CMP TIME, #500. ;WAS MEASURED TIME AT LEAST SOO MS? 
| e802 005162 103001 BHIS 38 :BR IF IT WAS 
| 2403 O0S164 104055 ERROR 55 ;REPORT TIMEOUT TOO SHORT 
2405 o KEFEEKARARELLELAAALE RAL AAAS REALL AS ERALAREERE LEAS RA LARRA KRHA KEE 
| 406 {VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
e108 O0Si6& 012737 000240 177776 3S: MOV #<5%32.>,08PS  ;RESTORE PRIORITY TO 5 
| 


8 
g 
- 
3 


iB dan ps DRIVE NOT IN NEUTRAL OR NOT SEIZED 


BSR 
or 
ES 
8 
e 
Baan 
3 


eii0 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
2412 905174 005037 001250 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
2413 16737 le 001122 MOV #RPOS *FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
2414 1122 ADD RO "ADD THE 1/0 BASE ADDRESS 
2415 O0Sel2 012737 O11600 001124 MOV #NOL!PGM! DPR! DRY, T COMPARISON CONSTANT 
e416 313760 O0lee4 10 HOVE PORTA, RPCSe(RO) ; SELECT PORT A 
| pal? 1 90001 001170 MOV RPDSI(RO).STMP2 3GET THE DRIVE” STATUS REGISTER FROM PORT A. 
| @418 005234 013737 0011 001164 MOV STHPe § COPY IT INTO * 
i p49 doseu2 042737 100100 001164 BIC cat WV, STMPO i CLEBR PORT DEPENDENT BITS FROM THE COPY 
| e420 113760 001226 000010 MOVB TB,RPCS2(RO) ;SELE ;SELECT PORT B 
2 ot Ig 001172 MOV ih STMP3 ; (a, + STATUS REGISTER FROM PORT B. 
2 1 1172 OO11 MOV a 
| he 3 spied Bot tee ate STHED W, STHPL 1S THE FATUS US REGISTER. THE COME TEROn BOTH PORTS ? 
| Bude arte : eee fea F at 7 
ST jREGISTERS ARE THE SAME: ARE THEY ZERO ? 
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O2-NOV-76 18:49 Te PORT ’A’ SEIZE/TIMEOUT TEST 
2429 005320 000137 oDssO4 IMP 70$ sBYPASS THE REST OF THE CHECKS 
2430 005324 013037 001170 001126 6&$: MOV STMP2,SBODAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
Bi Giese flsree lest ERGIG © Bil UTE-RrCElnay feet Papel? TEST SHE OnE Nor I reuren 
e433 005246 008737 001164 qs StnP 0° SEE ir eiatus: EQ 0 FROM PORT A. 
Be fee tee mie ps | Picea, ag IRS ROS EEE MOT mH ve 
37 nied 113760 001224 900010 MOVB PORTA, RPCS2(RO) :SELECT PORT A. 
e438 005376 re 001166 Ist SNP iSEE IF yarrtus EQ ZERO FROM PORT B. 
eto DOSHOs O1e732 177777 001250 67S: HOV 8-1, RELERR SET "RELEASE ERROR’ a}hOIcATOR 
ev42 005414 etea 001170 001126 68%: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
2443 005422 013737 001224 001234 MOV ORTA; PTNBR :CHANGE PORT 
e444 042737 100100 001170 BIC BATA'VV,STMP2 :DON’T CHECK ATTN BIT OR VV BIT 
e44S 005436 023737 001124 001170 CMP T, $T “ALL BITS OK ? 
ee 005444 CO14O BEQ *BR IF OK FROM PORT A 
DYE ppseee Oisr37 901172 001126 69S: HOV STHP3, SBODAT REE Ok RPDS] FOR BIT FAILURES - FROM PORT B. 
Sieg GOS464 042737 100100 001172 BIC BATAIVY, STMPS sSHNGE PORT ATTN BIT OR VV BIT 
evel bosu7e 23737 001124 001172 cH ScDDAT, STHP3 SEE, IF READ OK FROM PORT B. 
2453 005502 104007 ERROR 7 *REPORT ERROR 
etey O05504 Se0245 70$: NOP 
ss MeN Tee weLtetene Sib Tent font Er" ACE RECISTOS SHOULD oc 20. 
eS THE REGISTERS ARE STORED ON THE STACK. — 
ev60 QOS50b 013737 901226 001234 4S: roy PORTE PTNBR Sree oonee g T NuMBER’ I 0 0 THE OPPOSITE PORT 
| pube 000014 01122 ADD 1, SBDADR BRDRESS OF PERG E BR FYBEONT , 
| eves 005526 01637 601126 HOV ($P)+, SBDDAT CHEEK THE. S10 THE STORED CONTENTS OF RPERI 
Sue ppeese ios? 001122 aan x SBDADR Peete RedisreR OR ROHR i 
| 2467 dossie 062737 000024 001122 ADD #RPMR, SBDADR SS OF 
eee Oleb 37 001126 HOV (SP)+, SBDOAT i CHECK THE STORED SONTENTS: 0 OF RPMR 
he tee Pe ba sane Eiger Letom reise 
| e472 005564 eee 000006 001122 ADD #RPDA,SBDADR § ;ADDRESS OF RPDA FOR T 
| ei73 005572 O1eb37 001126 HOV ($P)+, SBDDAT ;CHECK THE STORED CONTENTS OF RPDA 
| ex7s ooeeag OEEOB 104008 ERROR 6 REPO BN HAT PORT B SAW NON-ZERO REGISTER 
| giz 10037 001122 eae HOV RO, SBOADR BASE ADDRESS FOR REGISTER RPDT 
| ei7e eat bista? Bet oe HOV (SP), Se0DAT mesh STORED CONTENTS. OF RPOT 
| BS Ee Se cn fa woe ReMi in ERLE FEST 
| BUBB Boeesa 001122 0D -#RPLA,SBDADR 53 OF FOR TYPEQUT 
| pWB3 005636 012637 001126 MOV (SP)+,S$8DDAT  ;CHECK THE STORED CONTENTS OF RPLA 
| B4B4 005642 001401 BEQ +4 *CONTENTS ZERO ? 
| 
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HAS BEEN SEIZED. 


READ EACH DRIVE REGISTER, EXCEPT'RPCS1, THROUGH PORT ’A’; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 


WAIT FOR THE PORT TIMEOUT TO OCCUR AND RELEASE THE DRIVE. 


Hh 
* 
ad 


o 
° 


DZRJEA.CMB  'O2-NOV-76 18:49 T2 PORT °A’ SEIZE/TIMEOUT ‘TEST 
2485 OOS644 104006 ERROR 6 sREPORT THAT PORT B SAW NON-ZERO REGISTER 
2 en ee ee nea rie 

1 1126 MOV (SP)+, sear Che Fae ST £5 FOR Freeo oT we RPER2 
2489 00564 001401 BEQ 
2490 OO0SEE5 104008 ERROR '’ EON ORT Punt ROORT B SAW NON-ZERO REGISTER 
2491 005670 910037 o01122 MOV RO, $BDADR jBASE BODRESS FOR REGISTER RPOF 
gtxe 74 32 001122 ADD SRPOF , SBDADR DRESS OF RPOF FOR TYPEOUT 
e433 01¢637 i126 HOV ($+, SBDOAT sche He STORED CONTENTS OF RPOF 
2495 oe eae 104006 ERROR 6 REPORT FuAt PORT T B SAW NON-ZERO REGISTER 
24% 005712 010037 001122 : MOV RO, SBDADR ; BASE BODRESS F FOR REGISTER RP 
87 005716 e737 000034 o01122 ADD #RPCA, SBDADR RODRESS OF A FOR Tpeour © 
88 005724 91c637 ODl126 — io (SP)+;SBDDAT CHECK THE STORED CONTENTS OF RPCA 
2499 005730 001401 BEQ +4 :CONTENTS ZERO ? 
2500 005732 104006 ' ERROR 6 *REPORT THAT PORT B SEES NON-ZERO REGISTER 
2501 005734 010037 O001122 MOV RO, SBDADR *BASE ADDRESS FOR REGISTER RPCC 
005740 062737 900036 o01122 ADD #RPCC,SBDADR § :ADDRESS OF RPCC FOR TYPEOUT 
2503 00574 012637 OOlizs ~ MOV (SP)+,SBDDAT  ;CHECK THE STORED CONTENTS OF RPCC 
5eh¢ BOETeN  SOHODE EEROR é sCONTEN Paar DRT NON-ZERO REGISTER 
2506 peter nye 001122 MOV RO, SBDADR *BASE ADDRESS FOR BeeTSTEN RPSH 
2507 005762 000030 o01122 ADD #RPSN,SBDADR § ;ADDRESS OF RPSN FOR TyPEour 
e508 o05770 O1e637 001126 MOV (SP)+,S$BDDAT CHECK THE er oRED CONTENTS OF RPSN 
001401 BEQ : CONTENTS 
2510 005776 104008 rites ERROR b REPORT THAT PORT B SEES NON-ZERO REGISTER 
5213 etre waver ea 000042 001122 ADD RAPER oe DAR SEO RESS OF RPERG FOR wut on 
2513 006012 012637 001126 MOV (SP)+,$BDDAT  3CHECK THE STORED CONTENTS OF 
2514 O06016 001401 BEQ +4 ; CONTENT 
| 2515 006020 104008 ERROR 6 REPORT THAT PORT B SEES NON-ZERO REGISTER 
sete Does oes, Sollee 001122 ADD SRbE EG SEDAOR sBRSE ADDRESS FOR R eR TYBEOUT 
2518 ppepse bese 3s vases MOV (SP)+, $BDDAT IGE THE ehOReD Con CONTENTS OF RPEC1 
ceo 2 es ERROR ’ T He POR T RO REGISTER 
| 565] Boeows droog? oouiz2 FOV RO, SBOADR faye: 5. OGR FECiSten RP 
| 2522 06050 062737 O00046 001122 ADD #RPEC2,S$BDADR ADDRESS OF RPEC2 
| 2523 006056 012637 001126 HOV ($P)+, SBDDAT CHECK THE STORED CONTENTS OOF RPEC2 
525d ppepes i ERROR 6 REPORT Ht BorT B SEES NON-ZERO REGISTER 
2526 606066 OO0004 c8: SCOPE LOOP ? 
S258 5 RERRRRRRRARLRA ERLE AER LRA ARAL REAL RE RAR ERE LE RA ARLE ARERR EERE EERE 
| +33 jATEST 3 PORT °B’ SEIZE/TIMEOUT TEST 
| 3531 ‘#VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
| 2532 + THE DRIVE. 
| 2534 A. WRITE 0’S INTO RPDS THROUGH PORT ’B’; VERIFY THAT THE DRIVE 
| 
| 
| 
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DZRJEA.CMB  ‘O2-NOV-76 19:49 13 PORT °B’ SEIZE/TIMEOUT TEST 
2s41 :% MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
4 1% VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
S| * NEUTRAL. 
seur i ee cr Te ee eae 
2547 rie 905737 001274 TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
2548 006074 001406 BEQ 2s *BR IF NOT 
2549 006076 BPL 1$ :BR iF JUST ENTER TEST 
2550 906100 13 og2e02 IMP XEC *RETURN & GET NEXT TEST NUMBER 
2551 104 012737 1 001274 1S: MOV a1 KYBCTL *SET SINGLE TEST INDICATOR 
e552 O0611l2 112737 000003 001102 2: MOVB 3, $TSTNM : TEST 
2553 006120 012737 006142 001106 MOV sera, ‘§LPADR LOAD LOOP ON TEST ADDRESS 
2554 O06126 Ol2737 006142 001110 MOV #TEST3,SLPERR  ;LOAD LOOP ON ERROR ADDRESS 
2555 006134 Ole737 OO000l2 001176 MOV #10. ,STIMES “D0 10. ITERATIONS 
2555 006142 012706 001100 TEST3: MOV STACK, SP !00AD T THE STACK POINTER 
2557 OO6146 012737 O00C40 177776 MOV #<5#32.),08PS  :SET PRIORIT Y TO 5 IN CASE LOOPING 
2558 006154 005037 001264 CLR TIMEB “CLEAR TIMEOUT VALUE FOR PORT B 
2559 006160 005037 O01266 CLR TIMESP ;CLEAR ubPER TIMEOUT TOLERANCE 
e560 006164 005037 001270 CLR TIMEBM CLEAR LOWER TIMEOUT TOLERANCE 
esse SERELELELESE SE SLES ERE SELES SLES EE LE ELEELA SSSR GELLAR LSE SLES EF ESL ELE 
e563 a TART THE TIMER 
e565 906170 g05037 goi2se CLR TIME CLEAR THE ELAPSED TIME COUNTER 
bbb 174 012737 003720 001254 MOV #2000.,WATCH § ;SET WATCH TO 2000 MS 
soe8 $ 5 REFREALLAL SAL ELALAEE ALLL LE LALA LL AL SELL LELERELRALLELE LEAL LLLLELE 
2570 ;SEIZE THE DRIVE THROUGH PORT B 
2572 O06202 113760 001226 on0010 MOVB — PORTB,RPCS2(RO)_;SELECT PORT B 
2573 O06210 013737 OOlech 001236 MOV PORTB, SEIZPT 5S sSTORE SEIZING PORT’S ADDRESS 
2574 006216 005069 000012 CLR RPDS1tRO) sWRITE RPOS1 
2575 O0be22 113760 oo 1224 000010 MOVB PORTA, RPCS2(RO) SELECT PORT A 
2576 006230 013737 1224 ooies4 HOY PORTA, PTNBR ;MOVE’ POR T ADDRESS TO LOCATION FOR TYPEOUT 
in 
5258 poEsan pieos? peMois porize HOV RPbsi 1205" Lennar’ ‘opposiTer DRIVE We SelceD 6 BY PORT B 
2579 O062eS52 010037 OOli2e MOV RO, SBDADR’ ive BASE ADDRE 
| —580 006256 0627 12 001122 ADD sRPDSL, $BDADR ; GENERATE BAD ReeicTER ADDRESS 
2581 006264 pena 1124 CLR $GDDA *REGISTER SHOULD BE ZERO 
2582 006270 023737 001124 001126 CMP SGDDAT,SBDDAT IS THE REGISTER ZERO 
2583 006276 001403 BEQ 64S *BR IF IT IS 
2584 006300 104004 ERROR 4 : T THE 
2585 O06302 000137 007466 S$ *BYPASS REST OF THE SUBTEST 
2586 006306 64S: 
2587 006306 113760 001226 000010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
| 2588 006314 013737 O0le26 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
006322 016037 000012 001126 MOV RPOSI{RO), SBODAT SEE IF SEIZING PORT SEES CORRECT STATUS 
| 590 006330 012737 011600 001124 MOV #MOL!PGM! PR! DRY, SGDDAT jEXPECTED STATUS 
| 9691 006336 013737 001124 001166 MOV SGDDAT, STMP1 USE R500 DATA AS A MASK 
gene 006344 005137 001166 COM STMPI COMPLEMENT THE EXPECTED STATUS © 
Be Geer Bee Bie Bue BERRA? ie nar etie ti 
Seg¢ Spe sen B39 50 Bott ae potted CMP $00 BAT STMPO et THE E EXPECTED. oFatus BITS SET ? if; 
259 006372 001401 BEQ *BR IF THEY 
| 
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DZRJEA.CMB ‘O2-NOV-76 18:49 T3 PORT 'B’ SEIZE/TIMEOUT TEST 
e597 006374 104005 ERROR S ;REPORT THE ERROR 
Se26 006376 000240 6S$: NOP 


5 RRR EERE EEE EE EERE REET REE EE EERE EERE EE EERE EE EAE REE EEE 
READ THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 





2603 006400 113760 001224 op0010 MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
006408 013737 O0l2ec4 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

2605 O06414 O16046 o00046 MOV RPEC2tRO),-(SP) ; TORE REGISTER RPEC2, , FOR CHECK 
2606 O06420 OL6046 MOV RPECI(RO),-(SP) ;STORE REGISTER RPECI, PORT A, FOR CHE 
2607 O0644 O16046 42 MOV RPER3(RO),-(SP) ;STORE REGISTER RPERS, PORT A, FOR CHECK 
2608 006430 016046 000030 MOV RPSN(RO),-(SP) ;STORE STER RPSN, ‘ CHEC 
2609 006434 O16046 000036 MOV CC(RO),-(5P) ;STORE STER RPCC; PORT A, FOR CHECK 
2610 O06440 O16046 MOV CA(RO),-(SP) ;STORE REGISTER RPCA, PORT A, CHECK 
2611 006 016046 000032 MOV RPOF(RO).-(SP) ;STORE REGISTER CHEC 
2612 OO64SO O16046 O00040 MOV PER2(ROS,-(SP) :STORE REGISTER RPER2, PORT A, FOR CHECK 
2613 006 016046 900020 MOV RPLA(RO),-(SP) ;STORE REGISTER RPLA, PORT A, FOR CHECK 
2614 006 016046 026 MOV RPDT(RO),-(SP) ST T, PORT A, FOR CHECK 
2615 006464 O16046 O00006 MOV RPDACRO) , -(5P) : STORE REGISTER RPDA, PORT BE CHECK 
2615 006470 O16046 O00024 MOV RPMR(RO).-(SP) STORE REGISTER RPMR, PORT A, FOR CHECK 
617 006474 O16046 000014 MOV RPERI(RO),-(SP) ;STORE REGISTER RPERI, PORT A, POR CHECK 
e619 © KEKKLLRAKALASAAE KALLA RAE LEAKE KLE LE LE KALA KS LE RK HERA AA ERE KLAR ALHLEKEKE 
gée0 AIT FOR PORT B TO TIMEOUT 
2622 O06500 005760 oD00n12 1S: TST RPDS1(RO) sWAIT FOR THE DRIVE TO TIMEOUT 
2623 006504 001006 BNE *BR WHEN TIMEOUT OCCURS 
ebe4 OOES06 005737 001254 TST WATCH * CHECK WATCH 
2625 006512 001372 BNE 1$ ;BR IF NOT ZERO 
2626 006514 104035 ERROR 36 *NO TiMeour WITHIN 2 SECONDS 

| 2627 006516 000137 007106 IMP 4§ *BYPASS TIMEOUT TIME CHECK 

| peB O06S22 012737 000340 177776 2S: MOV #(7%32.>,04PS ;SET PRIORITY TO 7 TO OTOP CLOCK 
2629 013737 O0l2eS52 001264 MOV TIME. TIMEB ; SAVE THE ELAPSED TIME FOR PORT B 
2630 006536 056630 JSR RS, TOLER ; CALCULATE THE TOLERANCE 
2631 006542 001264 .WORD  TIMEB “TIMEOUT VALUE FOR PORT B 
2632 OO6544 012637 001266 MOV (SP)+, TINEBP 425% TOLERANCE 
2633 O06550 012637 001270 MOV (SP)+,TIMEBM  3-25% TOLERANCE 
2635 © RELKLAKLEREKE KALE RELA RAKE E LL KA KHER RE EL KAA SE SHAKER KALA ERE KAEKE 

| 9636 VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST SOO MS 

| oeae SS4 023727 001252 000764 CMP TIME, #500. sWAS MEASURED TIME AT LEAST SOO MS? 

| pb39 O06562 103001 BHIS 3% *BR IF IT WAS 

gbu0 OO&564 104055 ERROR 55 *REPORT TIMEOUT TOO SHORT 

| este $ © LEA KRALA REAL LAAL KAA KARA AAR ARERR E LAA RA ARK AEE SKLAR REA A KAKA AL AALS 

ci *VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 

eb OOESEG 012737 O00240 177776 3S: MOV #<5%32.>,98PS  ;RESTORE PRIORITY TO 5 

| bu? sVERIFY THAT THE DRIVE IS IN NEUTRAL 

| 2649 006574 005037 001250 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 

i e650 OOBE00 012737 O000l2 ool122 MOV #RPDS1,SBDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 

| e651 060037 O0112 ADD R THE 1/0 BASE ADDRESS 

| 2652 006612 012737 011600 o01124 MOV aMOL! PCM! DPR!DRY’ SGDDAT ;COMPARISON CONSTANT 

j 
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3 
SESS RSS Sisis Ss) 


Seas BRSSS 
Saniora 
S88 8888 


& 
8 
= 
rm 
fu 






PORT *B’ SEIZE/TIMEOUT TEST 
MUVB PORTA,RPCS2(RO) ;SELECT PORT A. 





sad eres ene ares aa THe DRIVE, at Dia REGISTER FROM PORT A. 
BIC NDENT BITS FROM THE COPY 


#ATA! wig STMPO CLEAR PORT ? P 
MOVB  PORTB ReCSeCRO) *SELECT PORT 
MOV RPDS1(RO).S$TMP3 :GET THE DRIVE. STATUS REGISTER FROM PORT B. 
MOV STMP3, STMP1 -COPY IT INTO ’STMP1’ 
BIC earar Wy STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 













ae PO, STMP1 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 68S :BR a N 

ERROR 46 REPORT DRIVE NOT IN, + gles, OR NOT SEIZED 

JMP BYPASS THE REST OF T 





70$ HE C 
66S: MOV $TMP2, SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
















MOV PORTB,PTNBR aetekne T ron IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB Eon APCSECRD) ; SEL LECT 
TST STMPO ;OEE IF CraTUS EQ 0 FROM PORT A. 
BEQ 67S :BR 0 
MOV PORTA, cre ; SEIZING Ag | IF _ TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $TMP3, SBDDAT ;BAD DATA’ FOR ERROR TYPE OUT 
MOVB PORTA, RPCS2(RO) i SELECT PO 
TST STMP1" :SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 68S :BR IF NOT 
675: MOV #-1,RELERR 





576] "RELEASE ERROR’ INDICATOR 
ERROR 22 ; TYPE ERROR MES 
68S: MOV STMP2, SBDDAT ;LOOK por ont FAILURES WHEN RPDS1 READ 


;CHANGE P 
BIC #ATAIVV,STMP2 :DON’T CHECK ATTN BIT OR W BIT 
CMP aoe jALL 





I 
BEQ R IF OK F Pron PORT A. 
ERROR *REPORT ERROR 
69$: MOV STMP3, SBD0AT ; CHECK RPDS1 FOR BIT FAILURES - FROM PORT 8. 
MOV PORTB’ PTNBR T NUMBER 
BIC eaTaLiV Sinp3 BON’ T CHECK ATTN BIT OR VW BIT 
CMP GDDAT, STMP >SEE_IF READ OK FROM PORT B. 
BEQ sh BR I 
ERROR 7 *REPORT ERROR 
70S: NOP 


33 Pg a Ne cg ge ge ange HS ry 
;CHECK THE REGISTERS STORED THROUGH PORT A. ALL REGISTERS SHOULD BE ZERO. 
THE REGISTERS ARE STORED ON THE STACK. 


4: MOV PORTA, PTNBR sCHANGE ’PORT NUMBER’ TO THE OPPOSITE PORT 
MOV RO, SBDADR "BOSE ADDRESS FOR REGISTER RPERL 
ADD #RPER1,SBDADR ADDRESS OF RPER1 FOR TYPEOUT 

MOV (SP)+,$BDDAT  ;CHECK THE STORED CONTENTS OF RPERI 

BEQ +4 : CONTENT : RO? 

ERROR 6 *REPORT THAT PORT A SAW NON-ZERO REGISTER 

MOV RO, SBDADR ;BASE ADDRESS FOR REGISTER R PMR 

ADD #RPMR, SBDADR ADDRESS OF RPMR FOR T T 

MOV . (SP)+, $BDDAT CHECK THE “eng SONTENTS OF RPMR 










BEQ -3* ;CONTEN 
ERROR ‘ ;REPORT ORT A SAW NON-ZERO REGISTER 
MOV RO, SBDADR ;BASE RODRESS FOR REGISTER RPDA 
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Boose 
007176 


brsea? 


ae 


St tatats] 
BNEes 


SCSBeR°ES8 
aah ees 
Sie 


S 
oes 


40 


Obliee 


001122 
00 


SiS 
ROR 


S88 8 


RB RET 


Sss 838s 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


S$: 





#RPDA, SBDADR 
(SP +, $BODAT 


SBDADR 
ARPOT. $BDADR 
(SP)+, , SBODAT 


7” SB0ADR 
#RPLA, $B » $BDADR 
(SP)+, BDDAT 


* 
RO, $8DADR 
#RPER2, SBDADR 
(SP)+, +, $BDDAT 


6 

RO $BDADR 
POF , SBDADR 

(SP), $BDDAT 


SBDADR 
BRPeR. $BDADR 
(SP)+, $BDDAT 


” 

RO, SBDADR 
#RPCC, SBDADR 
($P)4 * SBDDAT 


SBDADR 
pa $BDADR 
(SP) +; SBDDAT 


BDADR 
ROeeES $BDADR 
(SP)+, $8DDAT 


SBDADR 
RRAERS $BDADR 
($P)+, $BDDAT 


0, S$BDADR 
pret ra $BDADR 
(SP) )+, $BDDAT 


ye. 
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iGheok TH RPDA FOR TYPEOUT 


; CHECK a CONTENTS OF RPDA 
Ee: fat OORT A SAW NON-ZERO REGISTER 
;BASE ADDRESS FOR pa EL RPDT 
ADDRESS OF RPDT FOR TYPEOLT 
: CHECK 15 ZEN 7 CONTENTS OF RPDT 


a N ‘PLA REGISTER 
a REGISTE 


ae RONTENTS-O OF RPLA 
T A SAW STER PER? REGISTER 


a ee egp oe 
EP RESS oF RPOF FOR TYPEOUT 


;CHECK THE STORED CONTENTS OF RPOF 

5 CONTENTS A 

;REPORT THA PORT A SAW Lely REGISTER 
bel CA 


TYPEOUT 

{CHECK THE STORED CONTENTS OF RPCA 
:CONTENTS ZERO ? 

;REPORT THAT PORT A SEES NON-ZERO REGISTER 
BASE ADDRESS FOR REGISTER RPCC 


; TYPEOUT 
; CHECK NTs ZERO CONTENTS OF RPCC 

T PORT A SEES NON-ZERO REGISTER 
; BASE ADDRESS FOR pg A RPSN 
ADDRESS OF RPSN FOR TYPEOU 
CHECK THE STORED CONTENTS OF RPSN 
CONTENTS ZERO ? 
;REPORT THAT PORT A SEES NON-ZERO REGISTER 
;BASE ADDRESS FOR REGISTER RPER3 


OR_TYPEOUT 
CONTENTS OF RPER3 


: ADDRE ORR 

“ADDRESS OF RPECI FOR TYPEOUT 

;CHECK THE STORED CONTENTS OF RPECI 

; CONTENTS ZERO ? 

SREPORT THAT PORT A SEES NON-ZERO REGISTER 
: ADDRESS FOR REGISTER R PECe 

SADDRESS OF RPEC2 FOR TYPEOUT 

;CHECK THE STORED CONTENTS OF RPECE 
CONTENTS ZERO ? 

sREPOR THAT PORT A SEES NON-ZERO REGISTER 
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2765 
2765 Fy SEL KE ALLE RAKE LHS SKLAR KEK EKRLEK ALEK LAER K ERASE RELA FE RFE REEK ELL ELES 
e767 sATEST 4 PORT 'A’ COMMAND SEIZE TEST & SET ’VV-A’ 
7 HV RIFY THAT THE DRIV N A COMM T yy? 
£76 : ERI estat E DRIVE Is SEIZED WHEN A COMMAND IS ISSUED. SE 
2772 ** . ISSUE A DRIVE CLEAR COMMAND THROUGH PORT 'A’. VERIFY THAT THE 
ek i DRIVE WAS SEIZIED BY PORT 'A’ AND THAT THE ’GO’ BIT RESET. 
775 ?* B. ISSUE A READIN PRESET COMMAND THROUGH PORT ’A’. VERIFY THAT THE 
776 x Ww? Bll WeS SET FOR Po ORT "a® AN ND,T HAT THE ’VV' BIT WAS NOT SET 
2777 x FOR PORT *®’. (NOTE THAT THE 'VV’ BIT NOT BEING SET FOR PORT 
e778 i °B’ CAN OM. BE TESTED HONE FIRST V TIME THROUGH THE PROGRAM. ) 
2780 ** C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
e78l i THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
2783 oe KKLELLKKHLKKEKREKRALE KEE KEL KALLE LE KAS RARER LH KAKA AE KKEERAZEKEHREE 
2784 007470 tST4: 
e785 007470 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
2786 007474 O01406 BEQ 2g BR I 
2787 007476 i0000e BPL 1$ *BR IF JUST ENTERED TEST 
2788 007500 000127 o02602 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
2789 007504 012737 177777 001274 1S: MOV a KYBCTL SET SINGLE TEST INDICATOR 
2790 O07S5i2 112737 OO0004 O01102 2: MOVB 4 $TSTNM : TEST NUMBE! 
2791 007520 012737 007542 001106 MOV eTesT4, SLPADR ; LOAD LOOP ON TEST ADDRESS 
2792 007526 012737 007542 001110 MOV * SLPERR sLOAD LOOP ON ERROR ADDRESS 
2793 007534 012737 OO0001 001176 MOV +) eer TheS : ITERATION 
2794 007542 012706 001100 TEST4: MOV aStAck, SP $00 THE STACK POINTER 
2795 007546 113760 001224 000010 MOVB  PORTA,RPCS2(RO) ’ OFPECT PORT 
e736 007554 013737 OOl224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
2798 © SLELEK KS F LE LE LAKE SEASHELL LELELA A FEE SEL FRE KEEFE RES ESSER ELF REFEREES 
e738 éTART THE TIMER 
2801 o07S62 005037 oD1e52 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
2802 007566 012737 003720 001254 MOV #2000. ,. WATCH SET WATCH TO 2000 MS 
e803 007574 013737 001224 001236 MOV PORTA,SEIZPT  ;’SEIZED’ PORT ADDRESS 
280s © SELLE KA AA RAE KALA L ALR KA KALA LALLA KARA SALE RE AA RSA KER HRAAR REL ERKERE 
2806 t tSSuE DRIVE CLEAR COMMAND 
eee 007602 012760 900011 ooDD000 MOV #11,RPCS1(RO)  ;ISSUE A DRIVE CLEAR 
2810 a8 SRIFY THAT DRIVE SEIZED BY PORT ee 
| Blt -YERIFY THAT DRIVE SEIZED BY P 
| B13 007610 113760 001226 000010 MOVE  PORTB,RPCS2(RO) \:SELECT PORT B 
| 2814 007616 013737 O0lee 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
2215 007624 37 001244 CLR CKERR’ ;CLEAR THE ’CHECK ERROR’ INDICATOR 
ebi6 007630 016037 o90012 001126 MOV RPOS1(RO),SBDDAT’ ;GET CONTENTS OF RPDS1 
| p81 012737 12 OOllee MOV #RPDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
e818 44 060037 O01i22 ADD RO SeOADR sADD_RH11 BASE ADDRESS 
| 2B] 650 005037 001124 CLR  $GDDAT WHAT REGISTER SHOULD BE 
| 2820 007654 023737 O011e4 01126 CMP $GDDAT,SBDDAT 1S THE REGISTER OK 
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DIRIEA.CMB8 = “‘D2-NOV-76 18:49 PORT °A’ COMMAND SEIZE TEST & SET ’VV-A’ 
2821 OCTEB2 . 001403  BEO bug :BR IF OK 
Ses5 007664." 104012 ERROR le :TYPE MESSAGE 12 
2823 007666 005137 o01244 CKERR SET THE RECISTER COMPARE ERROR INDICATOR 
e824 007672 64$: NOP 
807E74 113760 001224 990010 MOVE PORTA, RPCS2(RO) “SELECT PORT 
e826 007702 013737 OGlee4 001234 MOV PORTA,PTNBR ;MOVE PORT bores TO LOCATION FOR TYPEOUT 
e827 10 7 001244 CLR CKERR’ sCLEAR THE 'CHECK ERROR INDICATOR 
2828 907714 090012 901126 MOV RPDS1(RO).SBDDAT’ ;GET CONTENTS OF R 
2829 007722 012737 le OO0llee2 MOV 8RPDS1, SBDADR sFORM REGISTER ROpRESS 3 ERROR MESSAGE 
2830 907730 lee ADD RO R 1 BASE ADDRESS 
2831 007734 012737 O11605 001124 MOV abl! PGM! DPR!DRY, SG0RT “WHAT REGISTER SHOULD BE 
2832 007742 013737 001126 901164 MOV SBDDAT, $TMPO REGISTER CONTENTS TO ‘$TMPO’ 
2833 007750 be? 3 106177 OO1164 gic 81C71600, STMPO COVE SPECT FIED BITS 
254 ree 2 001124 Oo1164 CMP SGDDAT, StMPC ; COMPARE THE 
2825 007764 001414 BEQ 66S 
2836 007766 013737 001126 001174 MOY $BDDAT, sTHeY :COPY *BAD DATA’ 
2837 007774 O42737 071600 001174 BIC #71600,$TMP4Y § :CLEAR THE MASKED BITS 
2238 010002 053737 001174 O01124 BIS STMP4,$GDDAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
2829 010010 104010 ERROR 10 "REPORT THE E! 
2940 b10ble 005137 001244 COM CKERR >SET THE REGISTER COMPARE ERROR INDICATOR 
2841 O10016 00240 66S: NOP 
ee42 010020 005037 001244 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
2043 610064 O16037 o00000 001126 MOV RPCSI(RO),SBDDAT’ :GET CONTENTS OF RPCSI 
2e44 01 012727 000000 OO0llz22 MOV 8RPCS1 SBOAOR ;FORM REGISTER ADRESS. OF ERROR MESSAGE 
2845 O19040 060037 O0lle2 ADD RO :ADD RH BASE ADORE 
caus ste piers vite arte HOY 3010,SGD0RT si REGISTER SHOUD CONTENTS TO ’STMPO 
1. , 9 
2848 shee tei 001164 BIC atc STMPO SAVE SPECIFIED BITS 
2849 D10066 001124 OO11E4 CMP SGDDAT,STMPO COMPARE THE BITS 
2250 b1co74 BOL4i4 BEQ 68S *BR IF OK 
2851 010076 01 001126 001174 MOV SBODAT,STMP4Y COPY "BAD DATA’ 
2852 O10104 O42737 077777 001174 BIC 877777,$1MP4 § :CLEAR THE MASKED BITS 
2853 bidlle 053727 O01174 001124 BIS STMP4Y,$GDDAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
2854 010120 104010 ERROR 10 *REPORT THE ERROR 
2855 O10le2 005137 oco1244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
2856 019126 o00e40 68$: NOP 
2ess : Meee gt ge eae gh tare ete gr eter pe te eacmmacrncnd 
2259 *$SSUE READIN PRESET COMMAND AND SET FMT22 
see 010130 012769 000023 900000 MOV #23,RPCSI(RO) ;ISSUE A READIN PRESET 
286e 010136 012769 O10000 000032 MOV eFMt22,RPOF(RO)’ SET FMT22 
ClsH : LERIFY THAT THE DRIVE cialUs Is CORRECT 
eee :VERIFY THAT THE DRIVE STATUS IS CORRECT 
2867 010144 005037 o01244 CLR HE *CHECK ERROR’ INDICATOR 
bbe 610150 01 900012 001126 MOV pei 0) ,SB00AT. er CONTENTS OF RPDS! 
10156 O1 p00012 OO0llee2 MOV FORM REGISTER ADDRESS OF ERROR MESSAGE 
2870 010154 060037 lee ADD gAD0_ RHLI $s 
2871 010170 1273? 1 001124 MOV pa Rope i Seopa “WHAT REGISTER SHOULD BE 
2872 610176 01 1126 01164 HOY a ll s MOVE REGISTER CON CONTENTS TO *$TMPO’ 
Be tee botie4 Bot Ted CMP sic7i700 81m ovate if} M din 
2875 Ol 1414 BEQ 70$ 
2876 Ol0ee2 013737 001126 001174 MOV SBDDAT, STMPY ‘eopy +BAD DATA’ 
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10230 042737 O71700 001174 Bic #71700 STMPY — s CLEAR THE MASKED BITS 
78 pipes 053737 OO1174 001124 BIS MP4,$GODAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
e879 019244 194013 ERROR 3 “TYPE MESSAGE 13 
Sel 1066 137 901244 ene con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
10254 113760 901226 000019 "  -MOVB ~=s- PORTB,RPCS2(RO) ;SELECT PORT B 
2883 Ol0e62 913737 OOl2c6 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
cee ; SAAIT FOR TIMEOUT TO RELEASE DRIVEN RENEEHARESEEE 
2887 
2888 010270 005760 000012 18: TST RPDS1(RO) ;WAIT FOR THE PORT TO TIME OUT 
2885 010274 O01006 8 *BR WHEN TIMEOUT OCCURS 
2890 010276 005737 oo1es4 TST WATCH ;CHECK THE WATCH 
2891 010302 00137e BNE 1$ NOT ZERO 
2892 010304 104036 ERROR 36 :NO TIMEOUT WITHIN 2 SECONDS 
2893 010306 600137 010624 IMP 3$ *BYPASS ATTN REGISTER CHECK 
4 ; ite IF DRIVE RETURNED TO NEUTRAL NN RRERESEES 
2898 010312 2s: 
2899 
e300 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
| 802 010312 005037 001250 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
| 2903 010316 012737 O00012 oo1122 MOV #RPDS1,SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
| 2904 b10se4 060037 O01 12 ADD ;8DD THE 1/0 ADDRESS 
| 2905 010330 012737 011600 o01124 MOV #MOL'PGM! DPR! DRY’ =COMPARISON CONSTANT 
e306 010336 113760 1224 000010 MOVE = PORTA Reeser cr PART a 
1 1 ppasis 001170 MOV RPDS1 (RO) 2 tne DRIVE” STATUS REGISTER FROM PORT A. 
| 2208 O103se 013737 001170 001164 MOV STMPe, STMPO ;COPY IT INTO *STMPO’ 
2309 01 o4 100100 001164 BIC BATANYY CLEAR PORT T BITS FROM THE COPY 
+ 2910 010366 iI 1 900019 MOVB = PORTB (RO) ;SELECT PORT 
esi O10s74 “i 001 O01i7e HOV RPDS (RO) STHPS T THE DRIVES “STATUS REGISTER FROM PORT B. . 
| 5913 BIONIO OS 190100 boliee BIC = sATAIW. STHPL sEOEY,! T DEPENDENT BITS FROM THE COPY 
| e314 closes ea7 37 001164 001166 Ce SHPO, Strip ‘ i1S THE THE “STATUS REGISTER THE SAME FROM BOTH PORTS ”? 
e318 1 2 001164 TST STMPO REG! TERS ARE THE SAME: ARE THEY ZERO ? 
2917 Ol rite 745 *BR IF NOT 
| 2918 D104 104046 ERROR 46 ; REPORT DRIVE NOT od He NEUTRAL OR NOT SEIZED 
| pgig 104 deze JMP 7B THE THE CHECKS 
| 820 O1 i 1170 001126 72S: MOV STMP2,SBDDAT T UF POSSIBLE BAD DATA FOR ERROR MESSAGE 
sel 61 01 1 001234 MOV PORTS, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 2923 ata a0 belies arses Were a a See F Sonus’ EQ 0 FROM PORT A. 
| p3e4 Ol eat 14 BEQ 
104 1 1 0012 MOV Lan F PORT IF DRIVE NOT IN NEUTRAL 
| 5362 Oige06 813939 Balize BIT MOV. STFS’ SBOBAT aR Fok ERROR TYPE OUT 
| 9927 010506 3! 1224 000010 MOVE PORTA, RPCS2(RO) geet eo 
| esc ot 4 2? OO1166 IST sin 1’ BY srarus EQ ZERO FROM PORT 8B. 
| 2930 o105ce Taya 177777 001250 73S MOV #-1,RELERR iB, "RELEASE ERROR’ INDICATOR 
| p931 O1 ioudee RROR TYPE ERROR MESSAGE 22 
| 2932 010532 013737 001170 00112 74S: M0 STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
| 
{ 
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DZRJEA.CNB  ‘O2-NOV-76 18:49 TY PORT ‘A’ COMMAND SEIZE TEST & SET ’VV-A’ 
s333 iat pare rasta nthe aye erat Ape CON : a fee 8 i" NBIT OR WV BIT 
S33¢ DiSESN 7 7? O01] pptiee che $GDORT, W sine i a LL 8 arts OK cat é 
5338 es ERROR ORT mi, 
2338 010566 013737 001172 001126 75$: MOV STMP3, $BDDAT ittecn RPDS1 FOR BIT FAILURES - FROM PORT 8. 
2939 010574 913737 001226 001234 MOV PORTB’ PTNBR R 
2940 010802 042737 100100 001172 BIC #ATA! VV, STMPS Don" T CHECK ATTN BIT OR VV BIT 
eal 010610 023737 OO01124 001172 CMP SGODAT, $TMP3 E IF READ OK FROM PORT B. 
010616 00140 BEQ 76$ 
2943 010620 104 ERROR 7 1 Ra ERROR 
2344 010622 000240 76$: NOP 
2945 010624 O00004 38: SCOPE sLOOP ? 
sais ; 5 RRKERERLERELLL LALA ES LLERALLLAS SELLE ERE L LARS SERA RE SELLE EEE L LEED 
exe “jATEsT = PORT 'B’ COMMAND SEIZE TEST & SET 'VV-B’ 
2950 i SVERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ‘vv’ 
2351 i FOR THE PORT UNDER TeS igeD 
5325 *# f. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT 'B’. VERIFY THAT THE 
2954 i DRIVE WAS SEIZIED BY PORT °B’ AND THAT THE ’GO’ BIT RESET. 
Soe :# B. ISSUE A READIN PRESET COMMAND THROUGH PORT 'B’. VERIFY THAT THE 
2357 i "VV" BIT FOR PORT ’B’ WAS SET. 
cece 7% C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
£360 is THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
ecse H oREEREREEERHELS LARS ELK LAI SFE EEE SELLER ELE LRELE REE EE ESE LAP EAE S SEES 
293 010626 +15; 
2564 010628 005737 001274 TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
Seer Bt DES erred Bee ri ier fF NOST TEST 
| 2967 010636 caked IMP EXEC + PE TURN 8 ccf NEST Tet 
| 2968 010642 012737 1 001274 1S MOV #-1 .KYBCTL *SET SINGLE TEST INDICATOR 
§ 010650 112737 000005 001102 MOVE as $f TNM : TEST 
010656 1 010700 001106 MOV STESTS,SLPAOR ;LOAD LOOP ON TEST ADDRESS 
2971 O10664 012737 O1 1110 MOV TESTS, SLPERR  ;LOAD LOOP ON ERROR ADDRESS 
| p972 010¢7e ble? 1 0011 MOV #1,$7T hes >:D0 1 ITERATI 
| 2973 019700 012706 001100 TESTS: MOV ; LOAD THE STACK POINTER 
2974 010704 113760 001226 000010 MOVB  PORTB,RPCS2(RO) "<-SELECT PORT B 
| 2975 010712 013737 OOl2e6 001234 MOV PORTB, PTNBR ROvove PORT ADDRESS TO LOCATION FOR TYPEOUT 
i 5377 $ SESELELARESSEYSRESSERKARESSHLHERSELE REALE RE RLES RH SLSAL SARL ERESSLSSE 
: ;START THE TIMER 
: 2980 910720 p0s037 001252 shia CLR TIME ot ara ELAPSED TIME COUNTER 
| Beeb Bib%S2 BISeS> Bosse polSae NOV PORTB;SE1ZPY IZED" PORT ADDRESS 
| coee : SESRERL ERASERS SESE EES LA RRS ERPHE RR LSS REASR RASPES SHLASAHRR ELS GEEERE 
o385 :TSSUE DRIVE CLEAR COMMAND 
2987 O10740 012760 000011 oj0000 MOV #11,RPCSI(RO)  ;ISSUE A DRIVE CLEAR 
| e368 
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Oe-NOV-76 18:49 TS PORT ’B’ COMMAND SEIZE TEST *VV-B’ 


e ELASLAKAKSSEREAEEREALASLALSAREALERERELASRARSRERSLASLRALELESLASRESS 
VERIFY THAT DRIVE SEIZED BY PORT B. 


 LKLERLEELESELE SSAA RLAAEERAE LALLA SRSAS RARER RERKA ALARA KAA ALEKS 
 tSsuE READIN PRESET COMMAND AND SET FMT22 


op0023 00000 MOV #23,RPCSI1(RO) ;ISSUE A READIN PRESET 
010000 000032 MOV sFMt22,RPOF(RO)’ ;SET FMT2e 


: LeeaY THnT THE DTU RTRTLIR Tn CR eeanananene 
:VERIFY THAT THE DRIVE STATUS IS CORRECT 


3 


DZRJEA 
2989 
a 
2992 01074 11 001224 900010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT A 
5235 10754 ré vet 24 001234 Hoy PORTA, ;PTNBR =; MOV PORT 1fooness TO LOCATION FOR TY TYPEOUT 
1 1 1 ll MOV RPDS! (RO) fr NT 
Sage Bibebe aieOae Sppois Polis MOVs BRPBSL SOBER. voit RECISTER RODRESE SE ERROR MESSAGE 
2997 911002 O60057 001122 ADD s ADD RHI BASE ROpRESS 
2998 011006 001124 CLR $GCDA WHAT REGISTER BE 
2999 O1101¢ 023737 0011e4 001126 CHP SGDOAT, SBODAT *1S THE REGISTER OK ? 
st Bt Dee Towle ERROR le . SSAGE 12 
3002 O110e4 005137 001244 “bi con CKERR CET THE REGISTER COMPARE ERROR INDICATOR 
3004 011032 113760 001226 000010 "  MOVB = PORTB,RPCS2(RO) ;SELECT PORT B 
se Gime Bie, Belem UE EERE eR SOE Ee seal cae ho ca oe 
110S2 01 12 001126 MOV RPDS1(RO).SBODAT’ :GET CONTENTS OF RPDS1 
3008 011066 012737 OO001¢ 001122 HOV aRPDS1 , SBOAOR : FORM REGISTER RODRESS OF ERROR MESSAGE 
3 011072 Ciera? sete 001124 MOV BHOLT PGN® DPR! DRY’ Sep DAT *WHAT REGISTER 
301i 011100 O1 001126 OO1164 MOV SBODAT,STMPO.- ;MOVE REGISTER CONTENTS TO ’STMPO’ 
ie 011106 042727 106177 OO1164 BIC #1¢7 1800 STMPO ;SAVE SPECIFIED BITS 
3013 011114 023737 001124 001164 CMP SGODAT,STMPO ; COMPARE THE BITS 
| sie tes AEE ll 1174 oe ge3 T, $TMPY BP Bn DATA’ 
sie piiiss piss ot Sa BIC Hate : Pe BRSKED BIT TS 
3017 011140 053737 001174 001124 BIS STMPY,S$GODAT  ;°0R’ WITH GOOD DATA FOR TYPEOUT 
3018 01114 109010 ERROR 10 REPORT THE ERROR 
2013 otties 0051 001244 es Con CKERR >SET THE REGISTER COMPARE ERROR INDICATOR 
| 3021 011158 005037 o01244 CLR CKERR sCLEAR THE 'CHECK ERROR’ INDICATOR 
3022 11162 016037 001126 MOV RPCSI(RO),SBDDAT’ :GET CONTENTS OF RPCS 
3023 O11 1 : 001122 HOV FORM REGISTER AQDRESS OF ERROR MESSAGE 
2025 pita7s pe0os? ri 001124 MOV #421 T A GISTER SHOULD ze 
20eb 011210 013737 001126 O01164 MOV TMPO BN REG STER CON CONTENTS TO *$TMPO’ 
011216 1 001164 BIC atc STMPO CIF cirTED BITS 
ses at 73 Pave 001164 cH T, StMPO 
| 303 ies 13737 001126 001174 MOV $8008 7, STM eel paTA’ 
aise Ot isp Ossr37 Bog 94 001124 tg sires ap "sepoat oR wT G00 Dat F A FOR TYPEOUT 
| 3034 01 1c69 005137 001244 = Con CKERR sREPOR aE THEcfeter COMPARE ERROR INDICATOR 
BY Bonerama 
| 3s 
3039 
3040 
3 
| 3044 
| 
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1S: TST RPDS1(RO) -  ;WAIT FOR THE PORT TO TIME OUT 
BNE *BR WHEN TIMEOUT OCCURS 
S WATCH ‘CHECK THE WATCH 
BNE 1$ NOT ZERO 
ERROR 36 'NO TIMEOUT WITHIN 2 SECONDS 
IMP 3$ BYPASS ATTN REGISTER CHECK 
bier IF DRIVE RETURNED TO NEUTRAL NNN RRRBEERERES 
2s: 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
HOV skPDS1 iF ORM THE RESS OF RPDS! FOR TYPEOUT 
HOV abl PGH: DPREDRY! Vv a i sCOnPaR ea CONSTANT 
Hoy RPDS i } at OR VE, STATUS REGISTER FROM PORT A. 
BIC saratW STIPO ; R nal x tame: BITS FROM THE COPY 
MOV pP0si (RO), § 3 GET THe in STATUS REGISTER FROM PORT 8. 
ate arate STMP1 ; NDENT BITS FROM THE COPY 
CMP TPO, StMP1 : Is THE “STATUS REGISTER THE SAME FROM BOTH PORTS ? 
Ist STHPO HRECISTENG ARE THE SARE: ARE THEY ZERO ? 
ERROR 46 *REPORT te fet of’ NEUTRAL OR NOT SEIZED 
MP 76S sBYPHSS 
72S: MOV STMP2, SBDDA : T UF Pos OSSIBLE BAD DATA EGR ERROR MESSAGE 
MOV PORTB,PTNBR IZING POR TEST SHOWS DRIVE NOT IN NEUTRAL 


2° 
& 
4 












*B’ COMMAND SEIZE TEST & SET ’VV-B’ 


bv RPDS] (RO), SBDORT® LF Te eG egg, orca 
MOV RPDS1 . FORM REGISTER ADRESS OF ERROR MESSAGE 
ADD és $B ets RESS 
MOV #MOL!PGM! DPR! orvivy Wy, soobAT > WHAT REGISTER SHOULD BE 
Hoy SEDDAT SHPO Seeeir Ten gl CONTENTS TO *$TMPO’ 
cir SisoaT sie ' ete 
MOV SBDDAT, STMPY i BOeY F Bho DATA 
ae #71700, $TMP4 if AR THE CASED ITS 
I TMP4, $GDDAT OR MITH GOOD DATA FOR TYPEOUT 
ERROR 1 MESSAGE 13 
ne Con CKERR ‘Oe THE REGISTER COMPARE ERROR INDICATOR 
"  MOVB- ~=—s- PORTA, RPCS2(RO) SELECT PORT 
MOV PORTA,PTNBR ;MOVE PORT apoREse TO LOCATION FOR TYPEOUT 


8 © LALA LAAAALALE AALS LAER ELE LLL AL RES SALA KALLE RSLSA SAKA SRE LA ASSETS 
WAIT FOR TIMEOUT TO RELEASE DRIVE 








SACS DARN TET OT PaaS REPT Ht 


31 11614 11 01226 000010 MOVB PORT »RPCS2(RO) ; TP $ 
aie tbe aoe? 1164 qs! APB ise fr cia tue" EQ 0 FROM PORT A. oa 
3104 11630 0137 1224 001234 MOV Beta, PTNBR er BoRT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
105 O11€36 01 1172 001126 MOV STMP3, SBODAT § BAD DATA for ERROR TYPE OUT 
3108 blieu4 01224 OO0010 MOVE PORTA, RPCS2(RO) : SELECT POR 
1 11652 01166 TST STMP ; SEE F ere Tu EQ ZERO FROM PORT B. 
3108 OL 1655 001004 ou5 T 
1039 O11 012737 177777 001250 73%: OV #-1,RELERR ISET "RELEATE ERROR’ INDICATOR 
3110 OSLI6S6 104026 ERROR “TYPE ERROR MESSAGE 26 
3H b11670 013737 001170 001126 74S: MoV STMP2,SBDDAT LOOK FOR R BIT FAILURES WHEN RPDS! READ 
2112 O116 1 901224 001234 MOV PORTA: PTNBR :CHANGE PORT R 
3113 011704 042737 100000 001170 BIC A. $TMP2 :DON’T CHECK THE ATTN BIT 
3114 0117 Oe 001124 001170 CMP SGDDAT,STMP2 ALL BITS OK ? 
3115 O11 1401 BEQ 75$ *BR IF OK FROM PORT A. 
3116 011722 104007 ERROR 7 REPORT ERROR 
gii7 lize o1 1172 001126 75$: MOV STMP3,SBDDAT  ;CHECK RPDS] FOR BIT FAILURES - FROM PORT B. 
118 O11 137 1226 001234 MOV PORTB. PTNBR : CHANGE R 
3119 011740 042737 100000 001172 BIC #ATA, $TMP3 *DON’T CHECK THE ATTN BIT 
3120 011746 Oe 001124 001172 CMP SGDDAT , STMP3 ; SEE IF READ OK FROM PORT B. 
3l2e1 011754 001401 BEO 76$ IF OK 
3lee2 O11756 1 ERROR 7 REPORT ERROR 
3123 011760 OO0240 76$: NOP 
sich 011762 oocodc4 3S: SCOPE sLOOP ? 
3126 
3127 : iecT TEST RELEASE DRIVE SEIZED BY PRU ae 
3128 j TE TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 
3130 {aTEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
| 3132 i A. SEIZE THE ORIVE THROUGH PORT 'A’ BY WRITING O’S INTO RPDS1. 
3133 *% B. ISSUE A RELEASE COMMAND THROUGH PORT’A’. VERIFY THAT THE DRIVE 
i 3135 +# RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
| ay Sadbeains 
i 2138 oe LEEK ELEELEFSRE &LHEKKEEX SEEKER ES EEL ELLE KE MSRE LE SLE TERRELL RSH ERXESE 
| 3139 011764 té16: 
3140 911764 005737 001274 TST KYBCTL s PERFORMING ONLY SINGLE TESTS ? 
| 3141 611770 001406 2s BR IF NO 
3142 911772 100092 BPL 1$ F MOST ENTERED TEST 
| 3143 011774 000137 oDe6o2 IMP EXEC BF URN & GET NEXT TEST NUMBER 
| 314% 012000 O18? 77777 (001274 1S: MOV #-1 ,KYBCTL T SINGLE TEST INDICATOR 
gis 012006 11 bonabe COll02 25: MOVB 86, $TS ST 
| 3146 012014 012737 012036 001106 MOV #TEST6, SLPAOR ORD LOOP ON TEST ADDRESS 
| 3147 O1e0es ble? 37 01 001110 MOV STEST6,SLPERR © ;LOAD LOOP ON ERROR ADDRES 
| 3148 012030 012737 11 MOV #4000.;STIMES ;;D0 uboo” ITERATIONS 
| 3143 012036 012706 001100 TEST6: MOV #STACK, SP *LOAD THE STACK POINTER 
} 3151 gH SESE A HE Ha 3 9 9 a a a a a a a EE 
| ibe :START THE TIMER 
| 3154 O12042 005037 o01252 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
| 3155 012046 012737 003720 op12s54 MOV #2000.,WATCH | ;SET WATCH TO 2000 MS 
| 
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O2-NOV-76 18:42 PAGE S9 
TEST RELEASE, DRIVE SEIZED BY PORT ’A” 









;SEIZE THE DRIVE THROUGH PORT A 


MOVE $PORTA,RPCS2(RO) ;SELECT PORT A 
PORTA, SEIZPT 3S1OR SEIZING PORT’S ADORESS 


MOV 
CLR RPDS1URO) WRITE RPDS! 
MOV PORTB, OPPRT : OPPOSITE’ PORT ADDRESS 


;RELEASE THE DRIVE FROM FORT A 


MOVE PORTA, RPCS2(RO) -SELECT PORT 
MOV PORTA: PTNBR ;MOVE PORT abonese TO LOCATION FOR TYPEOUT 
MOV $13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH P 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR THE "RELEASE ERROR ’ INDICATOR 
MOV #RPDS1.SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
ADD RO ; AOD THE 1/0 BASE ADDRESS 

MOV #MOL'PGM!DPR!DRY! VV, SGDDAT _;COMPARISON CONSTANT 

MOVB PORTA. RPCS2(RC) ;SELECT PORT’A. 

NOV RPDSI(RO) STMP2 ;GET the DRIVE » STATUS REGISTER FROM PORT A. 


Sone 5 STMPO *COPY IT INTO ’ 
BIC saTALW ST NDENT BITS FROM THE COPY 
Roper tRO) STMP3 ;GET THE DRIVE gTaqus REGISTER FROM PORT B. 






Me RPCSe(RO) :SELECT PORT B. 
STMP3, STMPL :COPY IT INTO ’ 


MOV 
BIC arate. STHP *CLEAR PORT DEPENDENT BITS FROM THE COPY 


STMPO, STMP1 TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BNE 66S BR IF NOT 
TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 68S BR IF NOT 
ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
IMP 70$ “BYPASS THE REST OF THE CHECKS 
MOV STMP2, SBDDAT s3Er POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTS, PTNBR IZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,RPCS2(RO) :SELECT PORT B. 
TST STMPO SEE IF STATUS EQ O FROM PORT A. 
BEQ 675 BR IF ZERO 
MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV STMP3,SBDDAT :*BAD DATA’ FOR ERROR TYPE OUT 
MOVB PORTA, RPCS2(RO) ;SELECT PORT A. 
Ist 1 sSEE IF St ATUS EQ@ ZERO FROM PORT B. 
MOV #-1,RELERR *SET 'RELEASE ERROR’ INDICATOR 
ERROR : TYPE ERROR MESSAGE 26 
NOV : *LOOK FOR BIT FAILURES WHEN RPDS1 READ 
MOV PORTA: PTNBR ;CHANGE PORT NUNBER 
; 


"T CHECK THE ATTN BIT 
iBR IF OK PROM PORT A. 

REPORT ERROR : 
*CHECK RPDS] FOR BIT FAILURES - FROM PORT B. 


= 


STHP3, SB0DAT 
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DERJEA.CMB ‘O2-NOV-76 18:40 T TEST RELEASE, DRIVE SEIZED BY PORT ’A” 
sete pteee pueca> 00008 potis2 Bie | BATACSTMPSY CHEEK THE BTN 
15 Ot Sieg tea? borie4 00117 chp $GDDR , STMPS ay IF ce OK FROM pBAT B 
321? Oleuse 104007 oo ERROR REPORT OERROR 
218 if 36 37 001250 TST RELERR ‘O10 DRIVE RETURN TO NEUTRAL ? 
O1e442 001402 BEQ +6 "BR IF IN NEUTRAL 
3221 Sleds 000137 012720 INP is *GO WAIT FOR DRIVE TO TIMEOUT 
3222 012450 113760 001224 000010 MOVB PORTA, RPCS2(RO) SELECT PORT A 
3223 010456 013737 OOl2e4 001234 MOV PORTA,PTNBR ;MOVE POR T_ADDRESS TO LOCATION FOR TYPEOUT 
22204 Olevey 005037 001244 CLR CKERR’ vELEDR THE "CHECK ERROR’ INDICATOR 
3225 0120470 016037 O00012 001126 MOV RPDS] (RO) SBDDAT’ GET CONTENTS OF RPDS1 
3226 0120476 012737 O000le OOllee MOV 1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
3227 012504 060037 ODilee RO SERADR *.ADD RH11 BASE ADDRESS 
3228 012510 005037 001124 CLR GHDAT * WHAT REGISTER UL 
3229 012514 013737 001126 001164 MOV SBDDAT,STMPO —_:MOVE REGIST CONTENTS TO *STMPO’ 
3230 Ole5e2 077777 OO1164 BIC stCATA, STNPO sSAVE SPECIFIED BITS 
3231 012530 023737 001124 001164 CMP SGDDAT,STMPO ”° ;COMPARE THE BITS 
3232 012536 001414 BEQ 1 *BR IF OK 
3233 012540 13737 001126 001174 MOV SBDDAT,STMPY — ;COPY "BAD DATA’ 
3234 012546 100000 001174 BIC #ATA, STMPY ‘CLEAR THE MASKED BITS 
3235 012554 053737 001174 001124 BIS STMP4, SGDDAT j 7 OR. WITH GOOD DATA FOR TYPEOUT 
32% Olesb2 104017 ERROR 17 YPE MESSAGE 17 
3237 012564 005137 oo1244 COM CKERR gts THE REGISTER COMPARE ERROR INDICATOR 
3238 01 000240 71$: NOP 
3239 01 113760 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B 
3240 01 013737 OOlee6 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3241 012606 005037 001244 CLR CKERR’ sCLEAR THE "CHECK ERROR’ INDICATOR 
sete Oicbl 016037 B00012 001126 MOV REDS] (RQ) SBODAT’ “GET CONTENTS OF RPDS1 
3243 01 1 h00012e OOllee MOV 1, SBDADR Fo REGISTER ADDRESS OF ERROR MESSAGE 
3244 Olebe6 060037 001122 ADD ll 11 BASE ADDRESS 
3245 Oleb3e 005037 001124 CLR scbdar +h eter SHOULD BE 
3245 Ole626 013737 OO0lle6 001164 MOV iT GISTER CONTENTS TO ’STMPO’ 
3247 Ole644 042737 077777 O01164 BIC SCATA’ STHpD sSAVE SPECIFIED BITS 
3248 Ole6S2 023737 001124 001164 CMP SGDDAT, STMPO ; COMPARE THE BITS 
3249 012660 001414 BEQ *BR 
2250 Oleb62 013737 001126 001174 MOV SBDDAT,STMPY  ;COPY ’BAD DATA 
3251 012670 bie? a7 001174 ‘BIC BATA, STMPY CLEAR THE OASKED BITS 
3252 012676 Apri 74 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
3253 012704 104017 ERROR 17 *TYPE MESSAGE 17 
3254 012706 005137 oo1244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
3255 Ole7l2 000240 738: 
| 356 012714 000137 012752 IMP 2s :GO CHECK FOR LOOP ON ERROR 
3258 oRKEPLERERSL REE SSA E KAA RE LE SRE EERE GR ERE KERR SEK SERRE EL ARES KELELEY 
3259 te RELEASE COMMAND DIDN’T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
3260 TO RELEASE THE DRIVE 
| 3362 012720 1S: 
| 3263 012720 113760 001226 op0010 MOVB  PORTB,RPCS2(RO) ;SELECT PORT B 
| eet Steve Ota7a7 Oole% Coles BOY PORTE Aaron SHOVE POmT sODRES® TO LOCATION FOR TYPEOUT 
ore Oi Bb oes BNE 2S :BR UHEN DRIVE REL EASED 
2267 Ole742 005737 001254 TST WATCH “CHECK THE WA 
| 3268 012746 001364 1$ BR IF NOT HAO 
| 
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A.CMB  ‘O2-NOV-76 19:49 Tb TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 
3269 012750 104036 ERROR 36 NO TIMEOUT WITHIN 2 SECONDS 
3270 Ol2752 o00004 23: SCOPE “LOOP ? 
3626 $ jFERERSRRRRERAE SELEA REAR AEERE SITE CE LDED BY PORT Be 
3203 jATE TEST RELEASE, DRIVE SEIZED BY PORT 'B’ 
3275 i STEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
$677 i A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O0’S INTO RPDS1. 
32 ?% B. ISSUE A RELEASE COMMAND THROUGH PORT °B’. VERIFY THAT THE DRIVE 
3280 iH RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
32 +" : 
3253 012754 7 nyenmence ne nian: sinrn Hn gga aaa camaro ena nieRmRr 
3285 ble7s4 005737 001274 i TST KYBCTL DERE ORRIN ONLY SINGLE TESTS ? 
3569 Bt 1 BPL I iB F JUST ENTERED TEST 
3288 012764 000137 o02602 IMP EXEC “RETURN & GET NEXT TEST NUMBER 
3289 ie770 Ole? 37 177777 001274 1S: MOV #-1 .KYBCTL *SET SINGLE TEST INDICATOR 
3e90 012776 il 000007 OO1102 2$: MOVB = #7, STSTNM *TEST NUMBE 
3291 013004 012737 013026 001106 MOV #TEST7,SLPAOR ;LOAD LOOP ON TEST ADDRESS 
3292 013012 012727 013026 001110 MOV #TE5T7,$LPERR LOAD LOOP ON ERROR ADDRESS 
3293 013020 012737 007640 001176 MOV #4000.°STIMES +:;D0 4000. ITERAT 
so34 013026 012706 001100 TEST7: MOV #STACK, SP “LOAD THE STACK POINTER 
3) © KEXASLEKE KAA RE RAL ARALE ARS KALE LARA RLRKRA LAL AELE RAL ALA LE LRA KL ALELEE 
30% taTART T THE TIMER 
i CLR TI ;CLEAP THE ELAPSED TIME COUNTER 
3500 Bi303e Bisa ere 001254 mov #2000.,WATCH § :SET WATCH TO 2000 MS 
ae s 5 RERREREAELELERL ALLA AA REL RAE LAE LE EARL EEL REA EA ER EERE RE REL EER ELERE 
3304 ; ;SEIZE THE DRIVE THROUGH PORT B 
2306 O13044 113760 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B 
3307 0130S2 013737 O0lec6 001236 MOV PORTB, SEIZPT iS ARTE neo SEIZING PORT’S ADDRESS 
3308 013060 005060 0000Ie CLR RPDS1{RO) 
$203 013064 913737 OOl224 001240 MOV PORTA, OPPRT OPPOSITE? + EORT ADDRESS 
at 3 H 2 A ROE 5 A NO AAT 8 
| 333 RELEASE THE DRIVE FROM PORT B 
3315 013072 113760 001226 OO00010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B 
| 3316 013100 013737 O0l226 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
$17 013106 612760 000013 oo0000 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 
| 3319 sVERIFY THAL THE DRIVE IS IN NEUTRAL 
3 13114 005037 001 CLR RELERR CLEAR_THE anrebEase ERROR ’ INDICATOR 
$354 aE 012737 ayes 001122 MOV aRPDS! $BDADR SEEN THe RESS OF RPDS1 FOR TYPEOUT 
| 3323 013126 001122 ADD RO, SBDADR fApD THE I/ ry nee ADD 
| 3324 013132 012737 011700 o01124 MOV HOLT PCH! DPR!DRY! WV, SGDDAT ;COMPARISON CONSTANT 
| 
| 
Plaats 


OZRJEA.CNB 'O2-NOV-76 18:49 7? TEST RELEASE, DRIVE SEIZED BY PORT '8’ 


BonsT LBD) SIRS; iat PORIVE VE STATUS REGISTER FROM PORT A. 
Sin i sTHe8 iSpy it INtOstreor 

100 00 I ANY. STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
113760 001 000010 MOVE HoH RPGR) sSELEC LECT PORT 
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1 
1 
l 
3329 01 
3330 Ol 7 l2 001172 MOV RPOS1{R ET THE DRIVE STATUS REGISTER FROM PORT B. 
$331 13204 13737 001172 OD1166 MOV STMP3, STMPL *COPY IT INTO 'STMPL’ 
13212 37 100100 O01166 BIC satan STMP1 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
3333 013220 023737 OO11E4 001166 CMP ,StMPL 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
3334 013226 001006 BNE ie 
3335 013230 37 OO1164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
2336 013234 001037 BNE 68S :BR IF NOT 
3337 013236 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
3338 013240 000137 013424 IMP 70$ ;BYP ASS THE REST OF THE CHECKS 
3339 O13eu4 01 001170 001126 66%: MOV sire. ,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
3340 013252 013737 O0le26 001234 MOV PORTB’ PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3341 013260 113760 O0l226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT 
3342 013266 005737 OO1164 TST STMPO’ *SEE IF STATUS EQ O FROM PORT A. 
Sua B35 ; eR 1 001234 Say Beata PTNBR HSE Zing Foe IF TEST SHOUS DRIVE NOT IN NEUTRAL 
at 9 
3y¢ pisses 13737 D011 001126 MOV TMP3, T **BAD DATA’ FOR ERROR TYPE OUT 
3346 013310 113760 001224 000010 MOVB PORTA, RPCS2(RO) ;SELECT PORT A. 
3347 013316 005737 001166 TST STMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
3248 013322 001004 BNE 68S :BR IF_NOT 
3349 013324 016737 177777 001250 678: MOV #-1,RELERR SET "RELEASE RROR’ INDICATOR 
3350 013332 1 ERROR 26 TYPE ERR A 
3351 013334 013737 001170 001126 68%: MOV STMP2, SBDDAT ;LOOK FOR oer FAILURES WHEN RPDS1 READ 
3352 013342 013737 001224 001234 MOV PORTA, PTNBR R 
3353 013350 042737 100000 001170 BIC a, $TMP2 ‘BON T CHECK THE ATTN BIT 
3254 013356 023737 001124 001170 ScoohT, STMP2 
3355 013364 001401 BEQ BR IF OK Pron PORT A. 
3256 013366 104007 ERROR *REPORT E 
3357 013370 013737 001172 001126 69%: MOV STMP3, $BDDAT § ;CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
3358 013376 013737 001226 o01234 MOV PORTB: PTNBR :C NUMBER 
3359 013404 042737 100000 001172 BIC #ATA, $TMP3 DON’T CHECK -THE ATTN BIT 
3360 O13412 023737 001124 001172 CMP SGDDAT,STMP3  ;SEE IF READ OK FROM PORT B. 
3361 013420 001401 70$ BR IF OK 
3362 O134e2 104007 ERROR REPORT ERROR 
| 3363 013424 O00240 70S: 
3364 13426 005737 001250 TST RELERR ;DID DRIVE RETURN TO NEUTRAL ? 
3265 013432 001402 BEQ +6 *BR IF IN 
3366 013434 000137 013710 IMP is GO WAIT FOR DRIVE TO TIMEOUT 
3367 OL sH40 413760 oo 1226 000010 MOVB— PORTB,RPCS2(RO) ’:SELECT PORT 
3368 O01 13737 OO0lec6 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 3369 O19454 005037 001044 CLR CKERR’ sCLEBR THE ’CHECK ERROR’ INDICATOR 
3370 013460 016037 OO00012 001126 MOV RPOS1(RO).S$BDDAT’ ;GET CONTENTS OF RPDS1 
3371 013466 012737 O00012 ODllee MOV #RPDS1, SBDADR Trobe REGISTER ADDRESS OF ERROR MESSAGE 
3372 013474 001 1ee ADD RO SBOADR ;ADD_RH11 BASE ADDRESS 
3373 013500 ate 1124 CLR SGODAT * WHAT REGIST ER SHOULD BE 
3374 013504 013737 O011e6 001164 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO *STMPO’ 
3375 013512 042737 077777 001164 BIC #tCATA, THEO SAVE SPECIFI D BITS 
337% 013520 023737 001124 001164 chp SGDDAT, ST MPO" ;COMPARE THE BITS 
| 335— Ofaes8 013737 00112 on1174 MOV SBODAT,STMPY —«ScOPY "BAD DATA” 
3379 013536 042737 100000 001174 BIC #ATA, STMPY “CLEAR THE MASKED SITS 
| 3380 013544 053737 001174 OOlleH BIS sTHP4. $GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
| 
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DZRJEA.CMB ‘O2-NOV-76 19:49 17 TEST RELEASE, DRIVE SEIZED BY PORT ’9’ 

3381 013552 104017 ERROR 17 sTYPE MESSAGE 1 
3382 013554 005137 o01244 vo. con CKERR ‘SET THE tite COMPARE ERROR INDICATOR 
384 kat 001224 000010 Nove PORTA,RPCS2(RO) ;SELECT POR 
3385 01370 013737 001224 001234 MOV PORTA, PTNBR sMOve PORT RDORESS T0 LOCATION. FOR TYPEOUT 
3369 Re atti ? ante 00112 ait KERR 0) SBDDAT’ EOF Con IE ENTS OF REEL SP 
338 sea 12737 pppais apt te MOV #RPDS1, SBDADR sFORM RE uw R NT anpREsS oh ERROR MESSAGE 
3389 013616 060037 ODlle2 ADD RO, $BDADR "sADD_RH11 BASE ADDRESS 
3390 013622 001124 CLR GODAT “WHAT REGISTER SHOULD BE 
3391 013626 013737 001126 001164 MOV SBDDAT,STMPO _:MOVE REGISTER CONTENTS TO ’STMPO’ 
2392 013634 04 030 077777 OO1164 BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
3393 013642 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
3394 013650 001414 BEQ 735 ;BR IF OK 
3395 013652 001126 001174 MOV SBODAT,STMPY § ;COPY *BAD DATA’ 
33% 013660 042737 100000 001174 BIC BATA, STMPY : CLEAR THE MASKED BITS 
3397 013666 053737 001174 001124 BIS STMP4, SGDDAT 5 OR WITH GOOD DATA FOR TYPEOUT 
3398 013674 104017 ERROR 17 *TYPE MESSAGE 17 
3399 013676 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
3400 013702 o00240 73$: NOP 
3401 013704 000137 013742 IMP 23 GO CHECK FOR LOOP ON ERROR 
3403 5 © RELEASE LESS LELARELE LEK E RARE AAS EA KAKA KAKA KEKE KER LLKEE ELE REEEE 
3404 :tF RELEASE COMMAND DIDN’T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
3405 *TO RELEASE THE DRIVE 
3406 
3407 013710 1S: 
3408 013710 113760 001224 oD0010 MOVB PORTA,RPCS2(RO) ;SELECT PORT 
3409 913716 013737 001224 001234 MOV PORTA.PTNBR ;MOVE PORT apprese To LOCATION FOR TYPEOUT 
3410 013724 005760 o00dl2 TST RPDS1tRO) ;WAIT FOR TIMEOUT TO RELEASE DRIVE 
3411 013730 001004 BNE 2s *BR WHEN DRIVE RELEASED 
3412 013732 005737 001254 TST WATCH : CHE H 
3413 013736 001364 BNE 1$ ;BR IF NOT ZERO 
3414 013740 104036 ERROR 36 {NO TIMEOUT WITHIN 2 SECONDS 
ati6 013742 000004 2S: SCOPE * LOOP 
3417 
3418 g per io’ TEST RELEASE THROUGH PORT °A’” DRIVE IN NEUTRAL 
3419 ; ATE TEST RELEASE THROUGH PORT ’A’, DRIVE IN NEUTRAL 
sel es OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
3423 *% A. ISSUE A RELEASE COMMAND THROUGH PORT ’A’ WITH THE DRIVE IN 
sict it NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

2b , HERUEESSSERESESESRORENEERERSSSREENERNSEONRERESESSREREREOSSETeES 
3427 013744 téT10 
EA 13744 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
34 13750 001406 BEQ 2$ *BR IF NOT 

30 013752 100002 BPL i$ ;BR IF JUST ENTERED TEST 
3431 013754 000137 oo2602 IMP EXEC “RETURN & GET NEXT TEST NUMBER 
3432 013760 012737 177777 001274 15: MOV aT KY CTL *SET SINGLE TEST INDICATOR 
3433 0137 12737 10 OO01f02 25: MOVB #10, STSTNN : TEST R 
3434 O01 12737 O14016 001106 MOV TESTO, SLPADR *LOAD LOOP ON TEST ADDRESS 
3435 014002 012737 014016 001110 MOV #TEST1O.S$LPERR ;LOAD LOOP ON ERROR ADDRESS 
3436 014010 012737 000144 001176 MOV #100.,S$TIMES | ;;00 100. ITERATIONS 
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TEST10: 
MOV 


© ELE KELLE RRL ELH KALLA RELA RELL LEEKS RE REKE RELL RARE ARLE RAE LFELLSAFE 
 iSSUE A RELEASE COMMAND 


5 RAHI HR RR EE ERR EEE REE ERE R EE EEE EERE EE EE EEE EEE 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


64S: 


i £11008) O2-NOV-76 18:4 
ELEASE THROU 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 











RIve IN Ne 
PORT ’A’, DRIVE IN NEUTRAL 


#STACK, SP sLOAD_THE STACK POINTER 
PORTA, RPCS2(RO) “SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA,SEIZPT ° ADDR OF PORT WHICH WILL ISSUE RELEASE 












#13,RPCS1(RO)  ;ISSUE A RELEASE COMMAND 














RELERR sCLEAR_THE ’RELEASE ERROR ’ INDICATOR 
#RPDS1,S$BDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 

RO, $BDADR D. THE 1/0 BASE ADDRESS 
#MOL? PGM! DPR! DRY! Ww scD0AT ;COMPARISON CONSTANT 

PORTA RPCSeCRO) ; :SECECT PO 

RPDS1(RD), STMP2 iGET he Drive, STATUS REGISTER FROM PORT A. 
TMP2 a Y IT INTO ’STMPO’ 

#ATA! VV, STMPO PCL PEAR PORT DEPENDENT BITS FROM THE COPY 

PORTB,RPCS2(RO) ;SELECT PORT 

RPOSI{RO),STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
TMP3, ST INTO *STMP1? 


;COPY IT 
wATAIVV,STMP1 © ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
STMPO, STMP1 315 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


pro HREGTSTERS ARE THE SAME: ARE THEY ZERO ? 


6 

46 j REPORT DRIVE NOT IN ay al OR NOT SEIZED 

68$ BYPASS THE REST OF T 

STMPe, pote SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,RPCS2(RO) ;SELECT PORT B. 

STMPO' ;5 E Pape STATUS EQ O FROM PORT A. 


6 

PORTA, PTNBR SEIZING BORT IF TEST SHOWS paTve NOT IN NEUTRAL 
STMP3, SBDDAT ;’BAD DATA’ FOR ERROR TYPE OUT 

PORTA,RPCS2(RO) ;SELECT PORT 

STMP1" ; SEE Fat STATUS EQ ZERO FROM PORT B. 


6$ 

#-1,RELERR ISET RELEASE ERROR’ INDICATOR 

:TYPE ERROR MESSAGE 30 

TMP2, SBDDAT ;L00K FOR BIT FAILURES WHEN RPDS1 READ 
PORTA; PTNBR > CHAN RT R 

#ATA, STMP2 “DON’T CHECK THE ATTN BIT 

SCDDAT, STMP2  ;ALL BITS OK 
675 BR IF OK. OK OK on PORT A. 
STMP3, SBDDAT § ;CHECK RPDS! FOR BIT FAILURES - FROM PORT B. 
PORTB. PTNBR CHANGE PORT NUM ER 

#ATA, STMPS DON’T CHECK THE ATTN BIT 
SGDDAT,STMP3 SEE IF READ OK FROM PORT B. 
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eet die TEST RELEASE THROUGH PORT BR’ DRIVE TN etna 


res OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


Se ceranistianieisanmescannineeneton 


fr 
we 


s © LKKKAA HAHAHAHA LK AKL E LEELA EKA KALA KK KH KRELK EKA A EKA KAA H HRS KRHRAKE REE 
ISSUE A RELEASE COMMAND 


5 HHH HERR K HERR A EE ERE ER ERE EERE REAL ERE EEE EE EEE EE ERIE R ERE EE 
i YERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
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TEST RELEASE THROUGH PORT ’A’, DRIVE IN NEUTRAL 





BEQ 58s ;BR IF _OK 
= REPORT ERROR 
SCOPE ;LOOP ? 











TEST RELEASE THROUGH PORT °B’, DRIVE IN NEUTRAL 











ISSUE A RELEASE COMMAND THROUGH PORT ’B’ WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 



























TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
BEQ é ;BR } NOT 

BPL 1 3BR F JUST ENTERED TEST 

JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
MOV #~-1,KYBCTL iSEL SIN SINE TEST INDICATOR 
MOVB a M ; TEST N 


MOV #TEST11,SLPADR LOAD {OOP GN TEST ADDRESS 
MOV #TESTI1.SLPERR ;LOAD LOOP_ON ERROR ADDRESS 
MOV #100. StINeS -:D0 100. ITERA 
aSTAC ‘Lon AD THE STACK POINTER 
MOVB PORTB, pPesacRo) “SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT appkese TO LOCATION FOR TYPEOUT 
MOV PORTE’ SEIZPT ' ;ADDR OF PORT WHICH WILL ISSUE RELEASE 


MOV #13,RPCS1(RO) ;ISSUE A RELEASE COMMAND 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR THE *RELEASE ERROR ’ INDICATOR 
MOV WRPDS1,SBDADR  ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
ADD R ; ADD THE 170 BASE AD 

MOV wMOL!PGM! DPR! DRY! vv Sea ar $,OMPARESON CONSTANT 


MOVB PORTA RPCS2(RO) ;SE ELEC 
MOV RPDS1tRO),$T!'P2 :GET ChE PORIVE” , STATUS REGISTER FROM PORT A. 


MOV ;COPY IT INTO’ 

BIC aaTanWw pA ha CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB ae aid sSELECT PO ort 

MOV RPDS tn), TMP3 ;GET 1 DRIVE STATUS REGISTER FROM PORT B. 
MOV TMP ;COPY IT INTO 'STMP1” 


BIC arate. 4 CLEAR PORT DEPEND ENT BITS FROM THE COPY 
CMP STnPO, StHPL 31S THE agyATus REGISTER THE SAME FROM BOTH PORTS ? 


NO 
ST eine :REGISTERS ARE THE SAME: ARE THEY ZERO ? 





@ 
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C 02-Nov-76 18: TEST RELEASE THROUGH PORT ‘B’, 
DI4S15 104046 ERROR 46 ‘REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
914620 000137 015004 IMP £85 “BYPASS THE REST OF THE CHECKS : 
014624 013737 OOl170 O01126 64$: MOV $TMP2,SBDDAT  ;SET UP POSSIGLE BAD DATA. CR ERROR MESSA 
014632 O13737 O0le26 001234 MOV PORTS, PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN "NEUTRAL 

3553 SiHe4O 113769 681226 000910 MOVE PORTS, RPCSE(RO) ‘SELECT PORT B. 

3554 O14646 37 OO1I64 TST STMPO :SEE IF STATUS EG 0 FROM PCAT A. 

3555 O146S2 901414 BEQ 653 BR IF ZERO 

3556 byes 013737 001224 001234 MOV PORTA, PTNER ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

3557 O14662 013737 OOli72 001126 MoV STMP3; SBDDAT ;*BAD DATA’ FOR ERROR TYPE 0 

3558 914670 1:3760 OOl224 900010 MOVB PARTA'RPCS2(RO) :SELECT PORT A 

3559 p1yé7e 005737 OO1166 TST STMP1" : EE IF STATUS: EQ ZERO FROM PORT 8. 

2560 O14 001004 BNE 66S R IF 

3561 014704 012737 177777 001250 65S: MOV 8-1, RELERR Ser * RELEASE ERROR’ INDICATOR 

362 014712 104039 ERROR ‘TYPE ERROR MESSAGE 30 

3563 914714 013737 001170 001126 G&S: MOV STMP2,S$BDDAT LOOK FOR BIT FAILURES WHEN RPDS! READ 

3564 014722 013737 001224 001234 MOV PORTA; PTNBR :CHANGE PORT NUMBER 

3555 14730 042737 100000 001170 BIC #ATA, $TMP2 DON’T CHECK THE ATTN BIT 

3566 014736 bea737 001124 oo117 CMP GDDAT,STMP2 ALL BITS OK ? 

3567 O14744 001401 BEQ 7§ *BR IF OK FROM PORT A. 

3568 O1474— 104007 ERROR REPORT, ER ERROR 

3569 014750 013737 001172 001126 678: MOV » $8008 * CHECK REDSL FOR B FOR BIT FAILURES - FROM PORT 8. 

3570 014756 013737 OO0l226 001234 MOV PORTB’ PTNBR *CHANGE POR 

3571 014764 O42737 100000 Odl!7e2 BIC seta STH 3 :DON’T CHECK THE POE ATTN BIT 

Ee D14772 Oe3727 OOlle4 001172 CMP SGDOAT, S :SEE IF READ OK FROM PORT B. 
U1S000 901401 BEO BR IF OK 

3574 O15002 104007 ERROR - REPORT ERROR 

3575 O15004 O00240 68S: NOP 

#78 ois006 soodo4 SCOPE LOOP ? 

3578 

3578 s SSRERELESRASEAELLS SLES SLELASERASEEARASSAAAFALALAARAFLASAERELSHLAELE 

#280 pT TEST 12 TEST THAT CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 

3582 * SVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

383 i PCRT 10 RELEASE THE DRIVE. 

3585 *# A. SEIZE THE ORIVE BY WRITING 0’S INTO RPDS THROUGH PORT ’A’. 

3586 i VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

sebe =: ;# B. ISSUE A DRIVE CLEAR THROUGH PORT 'A’ AND VERIFY THAT THE DRIVE 

2583 ii DOES NOT RETURN TO NEUTRAL. 

359 # 6C. THROUGH THE ar AND VERIFY THAT THE DRIVE 

ae ia Bee Nor RE TORR SER ES UTREL 

3594 *# D. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE 

oe iH RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

3597 ee EXSRERLEAL HLA LITERS ELSES SHS ELELESLESURDHEREKRS RAPED RRSTHLERGRE 

33g pienso 001274 trie: TST _—*KYBCTL sPERFORMING ONLY SINGLE TESTS ? 

$03 OiEoI4 oR aae BEQ *BR IF Nor 

3601 O15016 i9000e BPL BR IF JUST TERED TES TEST 

3602 015020 137 002602 IMP EXEC *RETURN & GET NEXT TEST 

2603 015004 012737 177777 001274 1S: MOV $-1, KYBCTL SET SINGLE TEST INDICATOR 

2604 015032 tt e7a7 000012 O01102 2: MOVB 812, STSTNN *TEST NUMBER 








02-NOV-76 18 12 ‘TEST THAT "CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 

my EH Rm Ab em 
MOY 6s auboorcétines itBocuboo SteRArioneee 

015062 01270 001100 TESTI2: MOV aS TACK’ SP '000D THE STACK POINTER 
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pars 
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fur 
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ele 33 SLLSSEREEFAALRFLSLAERSLKRALEAAALALESAELERERSRERSSEAAREE SES SLSELES 
Sis ;SEIZE THE DRIVE THROUGH PORT A 
3614 OSO6E 113760 001224 000010 MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
3615 O15074 013737 OOlecY 001236 MOV PORTA.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
2616 015102 O0S060 Oo00012 CLR RPOS1{RO) sWRITE RPOS! 
3617 015106 11 001226 000010 MOVB § PORTB,RPCS2(RO) ":SELECT PORT B 
3618 615114 O01 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3619 bibiee 1 001 001240 MOV PORTB, OPPRT OPPOSITE’ PORT ADDRESS 
S51 Oieise bbs? OOlize ne Oy ROS LIND) »SEOOAT 5 STE IC GIVE Se 1cED By PORT f 
3be2 bisive es re 001122 #RPDS1, SBDADR tEAeRET Pan REGISTER ADDRESS 
SS HHS fr GUE oo © Be SRA ssoonr Tet anion Seat 
3625 pietes artes BEQ b4s iB IF IT fe 
3625 015164 104004 ERROR 4 *REPORT THE ERROR 
$e? O15166 000137 016364 as IMP 1S *BYPASS REST OF THE SUBTEST 
| 3629 pleiss 113760 001224 900010 " MOVB-=—s« PORTA, RPCS2(RO) ;SELECT PORT A 
/ 3630 015200 O1 001224 o01234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3631 015206 O16037 000012 001126 MOV RPOSI(RO), SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
2x 015214 Ler? 611700 bol ied MOV SMOL'PGM'OPRIDRY! VV SGODAT ;EXPECTED STATUS 
7iSee2 01 11 1166 MOV SGDDAT,STMP1 ;USE G00D DATA’AS A 
| 3634 Ol 005137 001166 COM STMP] ; EMENT THE EXPECTED STATUS 
| 3635 015234 013737 OO1l26 001164 MOV SBDDAT :SAVE THE ACTUAL STATUS 
| 3636 bibeue 043737 OO1166 O01164 BIC STMP1, $TMPO :C UNWANTED BITS 
| 3637 O1 023737 O0lle4 OO1164 CMP ScboAt, STHPO *ARE THE EXPECTED STATUS BITS SET ? 
| 3638 O15e56 001401 BEG 65 :BR IF THEY ARE 
033 15260 104005 ERROR 5 *REPORT THE ERROR 
| 340 018262 oodeNd BSS: NOP 
| 242 st SEREKSHSFERFE REALS SLASRE RFE SE LEFLEREBEL ELSE FARA SERGE SASHA HAES SES 
| 3643 ;DRIVE CLEAR THROUGH PORT A FIRST 
| 3645 C1S264 012760 000011 000000 MOV #11,RPCSI(RO) ;ISSUE DRIVE CLEAR THROUGH PORT A 
j 3647 ss EEEESSLE LES ESE LEEBEPR ESE LEAR SAE EES SESERERRERS ALEK KAR REZESEELE 
248 :VERIFY THAT DRIVE STILL SEIZED BY PORT A 
3650 015272 113760 001226 on0010 MOVB  PORTB,RPCS2(RO) ;SELECT PORT B 
| eee ed nos? Sieg Coles ROY PORTE.PTNGR SHOVE, PORT ADDRESS TO LOCATION FOR TyPEOUT 
15312 Cl reeds 001126 MOV 1( ). sappar® Sey 1 
| so : 12737 06001 001122 MOV s FORM REGISTE RODRESS OF ERROR MESSAGE 
| 3656 015332 37 «(0011 err ‘THAT rears D BE 
| 3657 015336 01373? 11e6 001164 MOV : G CONTENTS TO *$TMPO’ 
358 15344 j 001164 BIC nities, STHPO ; SPECIFIED BITS 
' 3659 015352 37 001124 001164 CMP SGDDAT,StMPO = 5; C THE BITS 
3660 015360 001414 BEQ BR IF OK 
j 





| 
| 





: 
: 


;SET GISTER COMPARE ERROR INDICATOR 


CT PORT 
PORTA, PTNBR nove PORT T eporess TO LOCATION FOR TYPEOUT 
CKERR piCLERR T *CHECK ERROR’ INDICATOR 


1(RO) GET CONTENTS OF RPDS 
SRpa ROOD FORM REGISTER ADDRESS aOR ERROR MESSAGE 
RO ;ADD RHI1 BASE 
eMOL!PGM!DPRIDRY!VV,SGDDAT ;WHAT REGISTER SHOULD BE 
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DZRIEA.CNB ‘Oe-NOV-76 18:49 Tle TEST THAT ’CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 
ses Qlesrd Guera? Qr77o? OOLiTy BTC aaa Sined —}CLEAR THE MASKED BIT 
‘ ( é § 
Ps please z Bot 194 Bot to4 1S MP4, $GODAT ie WITH GOOD BFA Por TYPEOUT 
3664 Ol ERROR ee : “TYPE MESSAGE 33 
3665 = : 137 o01244 it con CKERR "SET THE REGISTER COMPARE ERROR INDICATOR 
3p +5, o15414 il 001224 000010 "  MOVB-~—s PORTA, Bocas RO) “SELECT PORT 
bse 013730 lees 001234 MOV PORTA, PTNBR nove, BOR PORT abonese TO LOCATION FOR TYPEOUT 
308 l rl CLR ERR THE 'CHECK ERROR’ INDICATOR 
3670 015434 016037 l2 001126 MOV SeeeT CRO) seooar’ T CONTENTS OF RPDS 
3671 g1eyae 01 000012 ASllze2 MOV aRPDS1 TORN RE REGISTER ADDRESS OF ERROR MESSAGE 
272 O1 06.037 0011 ADD ;AD0 RH E ROORESS 
3673 015454 Ole 011700 901124 MOV! he vv scooaT T REGISTER SHOULD BE 
3674 015462 O01 001126 001164 MOV SBODAT,STMPO. MOVE REGISTER C CONTENTS TO *STMPO’ 
3675 b15470 10 001164 BIC 81C77777,S1MPO :SAVE SPECIFIED BITS 
3676 015476 1124 OO1164 CMP SGODAT, STNPO iC SHE BITS : 
3677 O15504 001414 BEQ b8$ F OK 
3678 015506 O01 001126 001174 MOV SBODAT, STNPY ‘Copy "BAD DATA’ 
3679 015514 04 001174 BIC 877777.$1MP4 § $CLEAR THE MASKED BITS 
3680 g155¢2 001174 001124 BIS TMP4, $GDDAT j OR? WITH GOOD DATA FOR TYPEOUT 
3681 O1 104 ERROR ‘TYPE MESSAGE 33 
3682 015532 005137 ocole44 ¢ CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
3683 015536 00240 _ 688: NOP 
3685 : o SSFEEERELEFLKEEELELAERELERALALLSELAFLKERRELELERAERSKELAHHRSESEE 
358 "NOW ISSUE MASSBUS INIT 
3688 O1SSHO 012760 o00040 o00010 MOV #CLR,RPCS2(RO) ;ISSUE MASSBUS INIT 
36390 3 eT TTT TTT TT TT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
| 231 ;CONFIRM THAT DRIVE STILL SEIZED BY PORT A 
| 3693 01554 113780 001226 000010 MOVB PORTS,RPCS2(RO) ;SELECT PORT B 
| 369% O15554 013737 001226 001234 MOV . PORTB,PTNBR s MOVE PORT TO LOCATION FOR TYPEOUT 
| 3695 O155be ooso3? doles aaeaa’ CLR | CKERR ; CLEAR CK ERROR INDICATOR 
iae 
Eta bieer b1E7a? 0000 i5 001122 MOV 1 eabacR FORM eT CONTENT Robes. OF OF ERROR MESSAGE 
238 015602 00112 ROD RO, SEDROR ; eld 1 BASE ADDRESS i 
$33 peers 1 rate 001164 MOV SBODAT,STMPO. ss; RECTSTER PONTENT S TO *STMPO’ 
270: O1SbeD 490000 001164 BIC atc STMPO ; SPECIE ED BITS 
3702 015626 1124 OO01164 CMP  -s«§GDDAT,STMPO)C; BITS 
3703 O1Sb 1414 BEQ 70 BRI IF OK 
BS Es bee Bye BN |G peer, ieee he Ba 
s 
3706 Biepes 1174 001124 te STMPY, T 3°OR’ WITH Rae arr Por TYPEOUT 
3707 : ERROR 34 : TYPE 
3708 ieee 
8 1258 
3711 015676 
zi ber 
zis olerie 
3716 015730 


oO 
= 


s 
SBSSCESE 
: 
Nise 


St oe 
— 


ae ee ne en eee - ee ee ate oe nee oe 





ee ee ne ee ae - - 





BERR E BUN oe Tarun ee TEST FGRT har ke ES CAUSE RELEASE FROM PORT ‘A’ 


17 01 1 101164 MOV Ay GISTER CONTENTS TO ’S$TMPO’ 
S12 Biacse Biscay Optise Obl eY Bic Bi07708 gin ,SiPO OE SeeL FTE BITE 
es bere feist 1124 DOLIE4 CHP $GO0AT, $ 3 COME BRE THE BITS 
3 1 8 1a747 001126 001174 MOV sooo, aie *COPY "BAD DATA’ 
3722 015770 042737 077777 001174 BIC 877777, $TMPY CLEAR THE MASKED BITS 
3723 015776 eee 001174 O01124 BIS STMPY, seopat :*OR’ WITH GOOD DATA FOR TYPEOUT 
ve ee ite Ese Te etist 
l 137 001244 OM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
$28 O16012 000240 723: NOP 
368 sRELEASE THE DRIVE FROM PORT A 
3730 016014 113760 001224 MOVB  PORTA,RPCS2(RO) ;SELECT PORT A 
1 016022 013737 O012e24 001234 MOV PORTA;PTNBR ;MOVE PORT BDDRESS TO LOCATION FOR TYPEOUT 
32 016030 012760 000013 MOV $13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT A 
te sVERIFY THAT THE DRIVE IS IN NEUTRAL 
te 1 CLR AR ERROR ’ INDICATOR 
33 bieoae pOs0s? 00 le 001122 HOV BRPSL, SEOAOR FOE THEN p RPDS! FOR TYPEOUT 
ie! biepeN pene rei 001124 MOV RAOe 'DPR! DRY! WV ae (8 Se FORE CONSTANT 
oat ieuad atthe ae vara Nove Rppeiteos etree ¢ ier Fy ORT 8. STATUS REGISTER FROM PORT A 
| Shap Bieose pisos, pperee Botton NOY OSTRPS.STHBD  ~ iGopy Tt T ANto 81 
3743 O16104 042737 190100 1164 BIC 8ATA! VV, STMPO BITS FROM THE COPY 
3744 ibl12 113760 001226 10 MOVB § PORTB.RPCS2(RO) : CLEAR PeRRT 
3745 016120 016037 O000ie 001172 MOV RPDS1(RO).STMP3 GET THe DRIVE STATUS REGISTER FROM PORT 8. 
sre Gicie bier foniee Gaile © Xia itey | [Getelfol erBtetr errs aan me cop 
| lp Big lae Ges737 1164 BOT iee CMP STMPO, STMPL 1S THE PORT BEPER STER THE SAME FROM BOTH PORTS ? 
| irs0 Oieiee Obra? 001164 ist $THPO HRECH STERS ARE THE SAME: ARE THEY ZERO ? 
| 3752 016160 1 ERROR 46 REPORT DRIVE No NOT IN NEUTRAL OR NOT SEIZED 
3753 016162 0001 6362 IMP 785 REST OF THE CHECKS 
| 3754 O16166 13737 001170 001126 74S: MOV STMP2, SBDDAT raat TF B20 DATA FOR ERROR MESSAGE 
3755 016174 O1 1 001234 MOV PORTB,PTNBR ie] Ing PO POR EST SHOWS DRIVE NOT IN NEUTRAL 
3755 Olée02 113760 OOlec6 000010 MOVE § PORTB,RPCS2(RO) ;SELECT 
3737 Oibe1s p0S/ 37 OO1i64 TST STHPO BEE IF sia eon TUS’ EQ 0 FROM PORT A. 
3759 i ie tara? 1 1234 oo PORTA PTNBR TNS EO FORT F TEST DRIVE NOT IN NEUTRAL 
ts tT 
| 3760 Bt bisa? DOlive Oblice MOV.  $TMP3; SBDDAT iets Ne “FOR ERROR PPE OUT 
| 3761 O1 113760 001224 O00010 MOVB §PORTA,RPCS2(RO) ;SELEC 
| 3762 ot =f 001166 ist SiN i= rf nat erRTUS’ EQ ZERO FROM PORT B. 
ves ate 1 77777 001250 75$: MOV = : ASE ERROR’ INDICATOR 
16254 O1 11 000000 MOV #11, RPCSI (RO) cr REL DRIVE 
a7bb Oibebe o1 13 000000 MOV 13, 1(RO) mm 
| 3768 O1 ot 1170 001126 76S: ov STMP2, T tts FOR TERT TURES WHEN RPDS1 READ 
8 O01 1 001 V PORT Se : NUMBER 
| 1 04 1 001170 BIC saa, $TMP CK THE ATTN BIT 
| 3771 016314 023737 001124 001170 CMP SGDDAT , STMP2 ALL BITS OK ? 
| 3772 Ol63e2 001401 BEQ 77$ BR IF OK FROM PORT A. 





a ew ee s+ 





Oe-NOV-76 18:49 Tle TEST THAT CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 


5 REP R 
bisa 001172 001126 778: MOV STNP3, SBODAT HECK Ck RPDS FOR BIT FAILURES - FROM PORT B. 
016334 013737 001 Ase 1234 MOV PORTE, PTNBR a ee LOR } Muneee 
Bt 53 4) Olive BIC ON’T CHECK THE ATTN BIT 

: : 7 OOll 117e nas Sco0AT, STMP3 sSEE ro OK FROM PORT 8. 
bieseG Tovah? FRROR 7 REPORT E ERROR 
Oi 40 78S: NOP 
016364 O00004 18: SCOPE ;LOOP ? 


; 1 ae amen og a ey a gt ra ag ap te a tage 
:&TE TEST THAT *CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’B’ 


:% 
;*VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


SEN une Eee MRTORHNSNOOTOREBSS WITS 
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i. 

*% A. SEIZE THE DRIVE BY WRITING 0’S INTO RPDS1 THROUGH PORT ’B’. 

if VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

*# B. ISSUE A DRIVE C THROUGH PORT ’B’ AND VERIFY THAT THE DRIVE 

i DOES NOT RETURN TO NEUTRAL. 

*# C. ISSUE A MASSBUS CLEAR THROUGH THE RH11 AND VERIFY THAT THE DRIVE 

ii DOES NOT RETURN TO NEUTRAL. 

?# D. RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
| ii RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
016366 FF iii 
016365 005737 001274 " VST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 

Oibs7e 001406 BEQ 23 :BR IF NOT 
|e ieee GES once ie be rl EPP EE ure 
pt It 1 001274 1s: MOV #1, KYBCTL T SINGLE TEST INDICATOR 
| O16410 112737 000013 OO1102 25: MOVB 813; STSTNN {TEST NUMBER 
016416 012737 O16440 001106 MOV 8TEST13,SLPADR ;LOAD LOOP ON TEST ADDRESS 
| 3810 OibHes Ole? 37 Oie4O 001110 MOV WTESTI3,SLPERR ;LOAD LOOP ADDRES 
| 3ei1 Lease 01 40 O011 MOV $4000-"$ IMES 300 TERATIONS 
3812 O16 012706 001100 TEST13: MOV SSTACK, SP LOAD THE STACK POINTER 
| sei3 ¥ FEELEFLLLKLES SESE LHS LSS SES EASES ERLE SEK SKERRE SESS ES KER KERR ERRES 
zi ;SEIZE THE DRIVE THROUGH PORT B 
: 3818 O16444 113760 901226 000010 MOVE —«- PORTB, (RO) ;SELECT PORT B 
| 3819 OibHse 13737 OOl2e26 001236 PORTE SE sStORe SEIZING PORT’S ADDRESS 
| a { 1 Bor eo 9 at BY Ponta Rec (RO) FOSaT A 
| 382 Dibare 513760 ve 1554 Bais MOV a F eopress TO LOCATION FOR TYPEOUT 
3823 O01 013737 O0l2e4 001240 MOV PORTA’ SPAT ; OPPOSITE’ 
| 3824 016506 016037 12 001126 MOV RPDS1t -SEE IF DRIVE TOTES BY PORT B 
ae Ben Eren eo 
1 le o01122 ADD 1, * GENERAT STER ADDRESS 
| 3827 016526 005037 0011c4 CLR SGDDA ;REG 1S BE ZERO 
_ 3828 016532 023737 O011e4 o01126 CMP SGDDAT,SBDDAT IS THE REGISTER ZERO 





EBadeAPERSE™ BASRA TTRRABOES TEST ~SFRRT 1 HBCYIY, PCH PRR. aed af chige ret EREe” Prom port ‘6’ 


3829 16549 001403 BEd 8 64S BR IF 1 fe 
337 1 ug ABat 3? 017742 MP is BEPC REST eer THE SUBTEST 
3832 O165S0 64S: 
3333 16550 413760 001226 000010 MOVE § PORTB,RPCS2(RO) SELECT PORT B 
l 1 1 001234 MOV PORTS pr *MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3835 Dieses 916037 do0012 001126 MOV ). SB0RAT IF SEIZING PORT fhe oe CORRECT STATUS 
3836 016572 b1e737 O11 001124 MOV RPDS} {RO} .Sa008T wire $GDDAT sEXPECTED S 
3837 O16600 O01 001124 OO1166 MOV T, STMPL SUSE. 6000. DATA 
3838 016606 005137 OO1I&6 COM TMP BAPNT™ Te PPE TED STATUS 
3839 Ol66le 013737 OO01126 001164 MOV SBODAT,STMPO ;SAVE THE ACTLAL STATU us 
eyo BibbeD O43? 001166 901164 BIC STMP1, $TMPO :CLEAR UNWANTED BITS 
1 016626 001124 001164 C SGDDAT,STMPO § ;ARE THE EXPECTED STATUS BITS SET ” 
3842 016634 001401 BEQ "BR IF THEY ARE 
3843 016636 104005 ERROR 5 REPORT THE ERROR 
3844 016640 900240 65S: NOP 
sale 4 s ESERSE SSF ERS ELSE EL EGS SE RSLS SSHLSBRLEL ELSES ELST ESF SERS RELL ELRFFEERE 
347 > DRIVE CLEAR THROUGH PORT B FIRST 
3849 O16642 012760 000011 oo0000 MoV #11,RPCS1(RO) ;ISSUE DRIVE CLEAR THROUGH PORT B 
3851  SLLKEFLAERESLELSRELSLLA SRE AL SHAKE HAA LALAASRLARLASLEAERKELAELEEE 
3852 VERIFY THAT DRIVE STILL SEIZED BY PORT B 
eq D16650 113760 001224 o00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT A 
3855 016656 013737 O0l22e4 001234 MOV PORTA,PTNSR ;MOVE PORT ADORESS TO LOCATION FOR TYPEOUT 
3856 O16664 005037 O01°044 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
016670 016037 le 001126 MOV RPDSI(RO), SBDDAT’ :GET CONTENTS OF RPDS1 
| 3858 016676 012737 o00012 0Oliee2 MOV SRPDS1,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
3859 016704 060037 OOlles | ADD RO, SBOADR "ADD RH11 BASE ADDRESS 
32860 016710 005037 001124 CLR SGODAT *WHAT REGISTER SHOULD BE 
3861 016714 013737 001126 001164 MOV SBODAT, $ *MOVE REGISTER CONTENTS TO ’STMPO’ 
1 1 1164 81077777 ; 
3862 016722 042737 100000 00116 BIC tc STMPO :SAVE SPECIFIED BITS 
3863 016730 001124 O01164 CMP SGDDAT,STMPO COMPARE THE BITS 
3864 016736 001414 BEG bES ?BR IF OK 
| 3865 016740 013737 901 001174 MOV SBDDAT,STMPY COPY "BAD CATA’ 
| 3865 O16746 042737 001174 BIC 877777,S1TMPY =; CLEAR THE BIT 
| 3867 016754 053737 001174 001124 BIS STMP4,S$GDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 
| 368 Biers eats Een ST THE RECT 
§ 016764 137 o01244 COM KERR *SET THE REGISTER COMPARE ERROR INDICATOR 
3879 016770 ooge#9 665: NOP 
| ees Ai pt See Sea HOV” PORTE’ Bree ono eT on SS TO LOCATION FOR TYPEOUT 
| 385 Bl i fe OBRERR ve OR eae ERROR’ - INDICATOR 
| 3874 O17012 016037 000012 001126 MOV RPDS1(RO).SBDDAT’ ;GET CONTENTS OF RPDS1 
| 3875 17060 000012 O0llee2 MOV sRPDS! , SBDAOR FORM RiLL orcs RoORESs OF ERROR MESSAGE 
3876 1 1 ADD RO " [ADO RH 
1703¢ 01 il 001124 MOV ge ron Demon! ty T T REGISTER SHOULD BE 
| 3878 O1 013737 001126 001164 MOV STMPO MOVE GistéR ¢ CONTENTS TO *STMPO’ 
i 3979 017046 042737 10009 01164 BIC sicz7rte 2,STHPO i SAVE SPECIFIED 8 BITS 
zy tee teil Be Patan 
3882 017064 O1 001126 001174 MOV SB0DAT , STMPY BAD DATA’ 
3683 o1707e 042737 077777 001174 BIC 777, STMP4 tO OEAR OO ASKED BITS 
| 2884 017100 053737 001174 001124 BIS HEE $GDDAT  3;'OR’ WITH GOOD DATA FOR TYPEOUT 
| 
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TEST THAT *CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’B’ 


ERROR 33 ; TYPE MESSAGE 33 
cor CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


$ SERERSEFELER ELE SSS LE SE EESEEERE REALE SHEE EL ELE RSS BE REAR ELELARE SS PES 
*NOW ISSUE MASSBUS INIT 


MOV #CLR,RPCS2(RO) ;ISSUE MASSBUS INIT 


AONFIRM THAT DRIVE STILL SEIZED BY PORT Be 


 AONFI 


70S: 


T ORIVE STILL SEIZED BY P 
MOVB PORTA,RPCS2(RO) ;SELECT PORT 


MOV PORTA,PTNBR ;MOVE PORT aborese TO LOCATION FOR TyPEOUT 
CLR CKERR’ sCLEAR THE 'CHECK ERROR’ INDICAT 

MOV RPDS1(RO),SBDDAT’ :GET CONTENTS OF RPDS1 

MOV #RPOS1.SBORDR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR "ADD RH11 BASE ADDRE 

CLR T "WHAT REGISTER SHOULD BE 

MOV TMPO._- ;MOVE REGISTER CONTENTS TO ’STMPO’ 

BIC nitaeees STMPO ;SAVE SPECIFIED BITS 

CMP SGDDAT,STMPO COMPARE THE BITS 

BEQ “BR IF OK 

MOV SBDDAT,STMPY COPY *BAD DATA’ 

BIC 477777, S1MPY =; CLEAR THE MASKED BITS 

BIS STMP4,$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 

ERROR 34 “TYPE MESSAGE 

Con CKERR "SET THE REGISTER COMPARE ERROR INDICATOR 
MOVB § PORTB, RPCS2(RO) ou PORT 

MOV PORTB, PTNBR shove. B T 7fbORES TO LOCATION FOR TYPEOUT 
CLR CKERR’ CHECK ERROR’ INDICATOR 

MOV RPDS1(RO), SBODAT’ cee CORTENTE OF RPDS1 

MOV #RPDS1 SBOADR ;FORM REGISTER ADDRESS oF ERROR MESSAGE 
ADD RO, SBDADR " [R00 RH11 BASE 2 RODRESS 

MOV #MOL!PGM! DPR! DRY! VV, SGDDAT T REGISTER SHOULD BE 
MOV SBODAT,STMPO.  ;MOVE REGI Istén'c CONTENTS TO *$TMPO’ 

BIC #1C77777,S1MPO ;SAVE SPECIFIED BITS 

CMP SGDDAT,STMPO  ;COMPARE THE BITS 

BEQ *BR IF OK 

MOV SBDDAT,STMP4Y § ;COPY ’BAD DATA’ 

BIC ‘CLEAR THE MASKED 8ITS.. 

BIS , $GDDA OR’ WITH GOOD DATA FOR TYPEOUT 

ERROR *TYPE MESSAGE 34 

Con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


;RELEASE THE DRIVE FROM PORT B 

MOVB PORTS, pecae (RO) ;SELECT PORT B 

MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 

; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
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0 T13 TEST THAT *CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’B’ 


.CNB "O2-NOV-76 18:49 


3941 017420 012737 o00012 o01122 MOV #RPDS1, SBDADR 
ens fines By Hilss i 
3343 0174 127 ll 001124 MOV MOL! PGM! DPR! OR 
sai 17440 A13760 MOVB PORTA ReCSe 
174 1 le MOV FPosith0) § 
3945 017454 013737 001170 001164 MOV TMP2, $ 
7 Ol o4e737 190 001164 BIC #ATA! 
174 it ee 10 MOVB  PORTB ait 
§ 017476 016037 l2 001172 MOV RPDSI(RO), $TMP3 
3950 017504 013737 001172 001166 MOV STMP3, STMP1 
3951 017512 042737 100100 0011 BIC BATAIYV. STMPL 
s356 ot p37 37 OO1164 OO1166 CMP STNPO, St 
1 B01 BNE 7ug 
3954 617530 005737 001164 TST STMPO 
3955 17o34 1045 BNE 76S 
3358 1 104 ERROR 46 
17540 137 017740 IMP 78$ 
3958 017544 013737 001170 001126 74$: #§ MOV STMP2, SBDDAT 
3959 017552 013737 001226 do1e34 MOV PORTE, PTNBR on) 
| 
Seer pisces Adess? Borie neve SeneR 
a Te ere 1224 oD1e HOV PORTA,PT 
' | 
sera peers ft 2 tobe O0i1 MOV cone MP3, 
3965 017610 113760 001224 000010 MOVB PORTA, RPESeCRO) 
3966 Oi7blb 001166 TST STMP1’ 
i ae nn ete 
see fives: flees ory Bee 7 YL AEE 
ol 012760 000013 000000 HOV 413° RPCS1(RO) 
3334 eee it 001170 001126 76S: ERROR MP2, SBDDAT 
Sara Oi7eee puera? 100000 DOTiSD Me tale 
3975 017672 Bassas 1124 Bott o ae $GDOR , STNP2 
3976 017700 001401 ; BEQ 
sre Bieros I on are 
1 1 001172 OO1126 778: MOV Vaginats 
3979 017712 013737 001226 001234 MOV 
3980 017720 042737 100000 001172 BIC #ATA, STMPS 
3981 017726 023737 OO01i24 001172 CMP SGDDAT, STMPS 
3982 017734 001401 BEQ 785 
3383 0177 104007 ERROR 7 
17740 Oo0240 78S: NOP 
3985 017742 900004 1$: SCOPE 
3986 
3987 
3988 
39893 
3990 
3991 
3332 is SEIZING PORT. 
994 *%# A. SET EACH PORT ’S ATTENTION BIT. 
3995 * SET. 
2996 * 


tADD.T My ADDRESS OF RPDS! FOR TYPEOUT 
/0 BASE ADDRESS 
SOOO ORT ene CONSTANT 
ae € DRIVE, sTaTU STATUS REGISTER FROM PORT A. 

eae Poe PENDENT BITS FROM THE COPY 
GET THE DRIVE. gare REGISTER FROM PORT B. 
COPY IT INTO 'STMP 
CLEAR PORT DEPENDEN NT BITS FROM THE COPY 
is THE “ee REGISTER THE SAME FROM BOTH PORTS ? 
; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
REPORT NORIVE NOT IN NEUTRAL OR NOT SEIZED 
BYPASS THE REST OF THE ye S 
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
a a IF TEST SHOWS DRIVE NOT IN NEUTRAL 

Tr EfaTuS Ea 0 FROM PORT A. 


Weise i FOR ERROR Fee oor DRIVE NOT IN NEUTRAL 


Stir Sin ras EQ ZERO FROM PORT B. 


‘= TURELEASE_EEROR’ INDICATOR 


THE DRIVE 


TOOK FOR BIT FRICURES WHEN RPDSL READ 
HANGE PORT NUMBER 


sae tec THE ATTN BIT 
3ALL arte 


188 TF 0K FROM PORT A. 


CHECK RPOS1 FOR ert FAILURES - FROM PORT B. 
; CHANGE PORT 

DON’T CHECK THE ATTN BIT 

; SEE IF READ OK FROM PORT B. 


REPORT ERROR 

;LOOP ? 

; itect 14 TEST RESET ATTENTION “A” BY MascRiS Gea 
sgTEST TEST RESET ATTENTION ’A’ BY MASSBUS CLEAR 

j EVERIFY THAT A MASSBUS INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 


VERIFY THAT BOTH ATTENTION BITS 
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MO=11-D2RJE-A, DUAL CONTRLR LOGIC TEST = PART 1 MACYL1 27(1006) O2-NOV-76 18:4 
a i SEIZE THE DRIVE THROUGH PORT ’A’ SY WRITING O'S INTO RPDS). 
38 i ISSUE A MASSBUS CLEAR. 
uobY i 
4 :# D. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY. THAT THE ATTENTION. 
pos :# ai FO poe nhy HAS BEEN CLEARED AND Fe ATTENTION BIT FOR PORT 
4908 i *B’ IS STILL SET. 
done ss KEKKALHEALELAASAEAFLALAEAALEL AERA RE LALA ERA RHA AARKAE LE SEERA LKEE 
4 017744 tST14: 
4008 017744 37 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
4909 017750 001406 8EQ 2s *BR IF NOT 
4010 017752 1 BPL 1$ °BR IF JUST ENTERED TEST 
4011 017754 000137 o02602 IMP XEC ‘RETURN & GET NEXT TEST NUMBER 
4012 017760 012737 177777 001274 1S: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
4013 017766 112737 OO0014 O01102 2: MOVB #14’ STSTNN : TEST 
4019 017774 012737 020016 001106 MOV #TESTI4,SLPADR LOAD LOOP ON TEST ADDRESS 
401S O20002 012737 O20016 001110 MOV #TESTI4 SLPERR ;LOAD LOOP ON ERROR ADDRESS 
4016 020010 012737 O00CO4 001176 MOV STIMES *=DO 4 ITERATIONS 
4017 OG20016 012706 001100 TEST14: MOV astAck, SP : HE STACK POINTER 
ups 8 JHB HEHEHE BEHHHE HEHEHE GHEE EH HBHEH Ett 
ioe0 ;SET ATTENTION BITS FOR BOTH PORTS 
| 4022 O20022 113760 001224 MOVB PORTA, RPCS2(RO) ;SELECT PORT 64S 
| 4023 020030 012760 177777 000014 MOV #-1,RPERI(RO)  :FORCE ERRORS 
| 4024 020036 o0S060 000014 CLR RPERI(RO) *CLEAR THE ERRORS 
| 4025 O20042 013760 001226 000010 MOV PORTB,RPCS2(RO) :SELECT THE OTHER PORT 
| 4026 O200S0 005760 o0001e S4$: TST RPDS1{RO) ;WAIT FOR DRIVE TO TIMEOUT 
| 4027 20054 001775 REQ 64 *BR IF DRIVE HASN’T TIMED OUT 
| 4028 020056 012760 177777 000014 MOV #-1,RPERI(RO) $FORCE ERRORS ON PORT 65S 
| 4029 920064 005060 14 CLR 1(RO) “CLEAR THE ERRORS 
| 4030 020070 113769 001224 oo0010 MOVB PORTA, RPCS2(RO) :SELECT PORT "64S" AGAIN 
| 4031 020076 005760 o000i2 65$: TST RPDS1 (RO) *WAIT FOR DRIVE TO TIMEOUT 
| 4032 020102 001775 SEQ 65S :BR IF DRIVE HASN’T TIMED OUT 
| 4034 5g HEHEHE SESE EAE ESE SESE SEE SESE SE HEE SEE SEE HEE HEHEHE SESE SE SEE SEE HEE SE HE HEHEHE EE EEE 
| 4035 :CONFIRM THAT BOTH ATTENTION BITS ARE SET 
| dae 020104 113760 001224 op0010 MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
| 4038 020112 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 4039 020120 005037 001244 CLR CKERR sCLEAR THE 'CHECK ERROR’ INDICATOR 
| 4040 020124 016037 CO0O0l2 001126 MOV RPDSI(RO),SBDDAT’ ;GET CONTENTS OF RPDS1 
| O41 G20is2 012737 OO0N0le OOllee MOV #RPDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
| 4042 20140 060037 OCil2e ADD RO “ADD RH11 BASE ADDRESS 
| 4043 O20144 012737 1000090 001124 MOV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
| 4044 O20152 O1 001126 001164 MOV T,$T “MOVE REGISTER CONTENTS TO *STMPO’ 
| 4O4S O20160 042737 077777 001164 BIC BtCATA,STMPO ;SAVE SPECIFIED BITS , 
| 4046 020166 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BIT 
| 4047 020174 001414 BEQ 66 *BR IF OK 
| O48 020176 013737 001126 001174 MOV SBDDAT,STMPY § ;COPY *BAD DATA’ 
; 
/ 4049 O20204 042737 1 001174 BIC #ATA, STMPY CLEAR THE MASKED BITS 
| 4050 l2 053737 001174 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
| 405i Oe 104010 ERROR "REPORT THE ERROR 
| C20222 005137 oo1244 CO CKERR "SET THE REGISTER COMPARE ERROR INDICATOR 
! 
i 
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TEST RESET ATTENTION ’A’ BY MASSBUS CLEAR 
sas ATTN BIT FOR PORT A SET ? 
ST OF TEST IF NOT 
ake PORT "ADORE TO LOCATION FOR TYPEQUT 
’CHECK ERROR’ INDICATOR 


;GET CONTENT S OF RPDS! 
sFORM ag it al ERROR MESSAGE 


rae $c00A7 shai ReGiSt TER D BE 
§ sat Hines TO *STMPO’ 


is 
PORTB, RPCSe(RO) 
PORTB, PTNBR 


pated sscont’ 


CL EAR T BIT 
5 oe iis Bs GoD DATA FOR TYPEOUT 
igeT THE REGISTER COMPARE ERROR INDICATOR 


BR erty Bit FOR PORT 8 SET ? 
BYPASS REST OF TEST IF NOT 


55 REESE SEER HREM EEE EEE EERE ERE EEE REEL EERE E ERE EE 
;SEIZE THE DRIVE THROUGH PORT A 
PORTA, eersetno) A 
PORTA, SEIZ ;st9 ORE peIZING PORT’S ADDRESS 
;"OPPOSITE’ PORT ADDRESS 


s  LLLKA AERA KARA KALE LAKE LLL LEAK AA AER ELAS RAA SAKA KRLSRESARAA LAKH HHEE 
: ISSUE MASSBUS INIT TO PORT A 


#CLR, RPCS2(RO) 
PORTA, RPCS2( RO) 


LERIFY THAT ATIENTION BIT FOR PORT @ Gea 
VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 


NIT 
";SELECT PORT A AGAIN 


8 te "CHECK ERROR’ INDICATOR 
ONTENTS OF RPDS1 
TER ADDRESS OF ERROR MESSAGE 


CKERR CLEAR 
RPDS] (RO) $BDDAT’ 
ADR FoR REGIS 


REGISTER SHOULD BE 
inOve Sete ye ayen ENTS TO *STMPO’ 


CLEA RED BITS 
TYPE WITH ae gene FOR TYPEOUT 
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DZRJEA.CMB  ‘O2-NOV-76 18:49 T14 TEST RESET ATTENTION 'A’ BY MASSBUS CLEAR 
4109 o20S42 005137 001244 CUM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
4110 020546 000240 72%; NOP 
at i : BIT titi ti ttttit itt ritii ti ttiitittttiiiittttiiiti tts 
et sRELEASE THE DRIVE FROM PORT A 
4116 113760 001224 000010 MOVB PORTA,RPCS2(RO) ;SELECT PORTA 
4117 020556 013737 OOlec4 001234 MOV PORTA’PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4118 020564 012760 000013 o00000 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 
420 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
4122 20572 001250 CLR RELERR -CLEAR THE ’RELEASE ERROR ’ INDICATOR 
4123 020576 012737 O000le Odl122 MOV #RPDS1,SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
4 020604 001122 ADD RO, SBDADR jAbo THE 1/0 BASE ADDRESS 
41eS 020610 012737 011700 001124 MOV #MOL!PGM! DPR! DRY! VV ScbOAT s COMPARISON CONSTANT 
4126 020616 113760 001224 900010 MOVB PORTA RPCS2(RO) ;SELECT POR 
4127 Oe0624 016037 O00012 001170 MOV RPDS1tRO),STMP2 :GE THE ORT VE” STATUS REGISTER FROM PORT A. 
4128 Oe0632 013737 001170 001164 MOV *COPY IT INTO 'STMPO’ 

4129 O20640 042737 100100 001164 BIC #ATAIVV.STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
4130 O2064% 11 001226 o00010 MOVE = PORTB NeeeecROD >SELECT PORT B. 
4131 O20654 016037 pce 001172 MOV RPOSI(RO),STMP3 :GET T DRIVE STATUS REGISTER FROM PORT B. 
4132 Qefeb2 013727 001172 OO1166 MOV STMP3, STMP1 *COPY IT INTO *STMPL’ 
4133 029670 042737 100100 O01166 BIC sara STHPL *CLEAR PORT DEPENDENT BITS FROM THE COPY 
4134 020676 023737 O01164 001166 CMP STMPO, STMP TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
4135 020704 001006 BNE 74g BR IF NOT 
4} 520706 005737 001164 TST STMPO i REGISTERS ARE THE SAME: ARE THEY ZERO ? 
4] le OO104S BNE 76$ *BR 
4138 020714 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
4139 020716 000137 021116 JMP 785 *BYPASS THE REST OF T K 
4140 020722 013737 001170 001126 74$: #§ MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
4141 020730 013737 001226 001234 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4142 020736 113760 001226 O00010 MOVB PORTE, RPCSe(RO) >SELECT 
4143 020744 005737 O01164 TST STMPO ;SEE IF COR TUE’ EQ 0 FROM PORT A. 
4144 020750 001414 BEQ ? “BR RO 
414S 020752 013737 001224 001234 MOV PORTA, PTNBR ; SEIZING FORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4146 020760 013737 001172 O0li26 MOV STMP3,S$BDDAT ;*BAD ATA > FOR ERROR TYPE OUT 
4147 020766 113760 O01224 OO00I0 MOVB = PORTA; RPCS2(RO) ;SELECT P 
4148 020774 37 OO01166 TST STMPi* SEE IF STATUS EQ ZERO FROM PORT B. 
4149 021000 do1012 BNE 76$ "BR IF NO 
4150 021002 012737 177777 001250 75$: MOV #-1,RELERR *SET RELEASE ERROR’ INDICATOR 
4151 Oe1010 012760 000011 oo0000 MOV #11, RECSI (RO) 3CL EAR THE DRIVE | 
4152 021016 012760 O000i3 O00000 MOV #13,RPCSI(RO)  ;RELEASE THE DRIVE 
4153 021024 104 ERROR 26 TYPE ERROR MESSAGE 26 
4154 021026 013737 001170 001126 763:  ## MOV STMP2, SBDDAT LOOK FOR BIT FAILURES WHEN RPDS1 READ 
4155 021034 013737 001224 001234 MOV PORTA, PTNBR PORT 
4156 O21042 042737 100000 001170 BIC A, $TMPe2 DON’ T CHECK THE ATTN BIT 
4157 021050 023737 001124 001170 CMP ScookT, SiPe “ALL BITS OK ? 
| 4isg 021055 001401 BEQ 275 ;BR IF OK FROM PORT A 
4159 Del ERROR REPORT ERROR 
4160 e10b2 013737 001172 001126 77%: MOV STMP3,SBDDAT CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
4161 021070 013737 001226 001234 MOV PORTB; PTNBR s CHANGE PORT NUM ER 
4i62 021076 042737 100000 001172 BIC #ATA, $TMP3 DON’T CHECK THE ATTN BIT 
4163 021104 023737 O01i2e4 O01172 CMP SGDOAT, STMP3. SEE IF READ OK FROM PORT B. 
4164 O2l1l2 O01401 BEQ 78S *BR IF OK 
| 
| 
| 
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021114 104007 ERROR 7 ;REPORT ERROR 
4 4 021116 000240 78S: NOP 


4168 5 RRR EERE HERE RE REEL EEE EERE EE REE EE REEL REE EEE 
4169 : AHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 


13760 001226 o00010 MOVB  PORTB,RPCS2(RO) ;SELECT PORT B 
13737 OOlecé 001234 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005037 001244 CLR CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
16037 000012 001126 MOV RPDS1(RO),SBDDAT’ :GET CONTENTS OF RPDS1 

001122 MOV #RPDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
060037 O0lle2 ADD RO, $BDADR H11 BA DRESS 
012737 100000 001124 MOV #AtA, SGDDAT WHAT REGISTER SHOULD 6 
013737 001126 O01164 MOV SBDDAT,STMPO ' :MOVE REGISTER CONTENTS TO ’STMPO’ 
042737 077777 OO1164 BIC #tCATA, STMPO ; SAVE SPECIFIED BITS 
023737 O00112% 001184 CMP S$GDDAT, STMPO sCON PARE THE BITS 


y ae : 
013737 001126 001174 MOV SBDDAT, STMPY sCOPY ’BAD DATA’ 
042737 100000 001174 BIC #ATA, STMPY :CLEAR THE MASKED BITS 
001124 BIS STNP MP4, SGDDAT i WITH GOOD DATA FOR TYPEOUT 
005137 oo1244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
000240 793: oP 
ooooc4 1S: SCOPE sLOOP ? 
4190 © KEKE KALKALRALHA LAE L ARAL LEASE LEAL AELE RELL ERA REALE LLL RE RARE LAE KLAARKE 
419] sit TEST 15 TEST RESET ATTENTION ’B’ BY MASSBUS CLEAR 


4193 HAVERIFY THAT ne Baw pees INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 


A. set EACH PORT’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


PREDESENS 
20 
SN 
S 
3 
os 


= 
3 
RRRBRERRRERRRSRRAS 
2 
B 
$23 


b= bb bP bb bb bh 8 pe bm pe pp 


EGR OOo 
g 
3 
8 


SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RPDS1. 
ISSUE A MASSBUS CLEAR. 

RELEASE pe rae THROUGH PORT 'B’. VERIFY THAT THE ATTENTION 
BIT FOR P A 


be BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
"A’..IS STILL 


<= 

B 
ewe wees we ee weet we wees ee 
HE DE HK DK Dic Dic Dic DK NC DK Dic ic ok 


4206 ; 

4207 8 LKKEE KEELES ELE KLE KELLER KEARSE EE SHEER ERLE KEE KR ER KEL EL HR KKK EK ERLE 
4208 021246 +ST1S: 

4209 021246 737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
4210 OeleS2 001406 BEQ 2s :BR I 

4211 021254 100002 BPL 1$ *BR IF JUST ENTERED TEST 

4212 021256 000137 o02602 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
4213 O21262 012737 177777 001274 15S: MOV tl, kyBcTL SET SINGLE TEST INDICATOR 

4214 021270 112737 900015 001102 2: MOVB #15-$TSTN NUMBER 

4215 Geie7 012737 O21320 001106 MOV #TESTIS, ST PAR LOAD LOOP ON TEST ADDRESS 

4216 Oel 012737 021320 001110 MOV #TESTIS:SLPERR LOAD LOOP ON ERROR ADDRESS 

4217 021312 012737 OOO0004 001176 MOV #4 STINES “DO 4 ITERATIONS 

4218 021320 012706 001100 TESTIS: MOV aStACk 'OAD THE STACK POINTER 

4219 8 cS TERAESTEAEEAUSSSSSEATEAAEEGHEEEEESHESEAEESS SERS SEEESEAEAEEEINE 
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DZRJEA.CMB  O2-NOV-76 18:49 T15 TEST RESET ATTENTION ’B’ BY MASSBUS CLEAR 
ue ;SET ATTENTION BITS FOR BOTH PORTS 
y223 021324 113760 001224 o00010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT 64S 
ye24 Qel332 012760 177777 OO0014 MOV #-1,RPERI(RO)  3FORCE ERRORS 
4225 021240 O0S060 o00014 CLR RPERI(RO) “CLEAR THE ERRORS 
yor Oel3s44 013760 001226 o00010 MOV PORTB,RPCS2(RO) :SELECT THE OTHER PORT 
4227 OelsS2 905760 o000le 64$: TST RPDS1tRO) WAIT FOR DRIVE TO TIMEOUT 
4228 021356 001775 BEQ 64$ -BR IF DRIVE HASN’T TIMED OUT 
4229 021360 012760 177777 OO0014 MOV #-1,RPERI(RO) FORCE ERRORS ON PORT 
4230 021366 005060 O00014 CLR CLEAR THE ERRORS 
4231 021372 113760 001224 o00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT "64S" AGAIN 
u232 021400 005760 o0001e 65$: TST RPDS1(RO) “WAIT FOR DRIVE TO TIMEOUT 
de33 021404 001775 BEQ 65S *BR IF DRIVE HASN’T TIMED OUT 
c 
4235 © REKKAKHLRA HARE LRA SALE LAL HARARE KRALL RAL KELLER AHA RE LL KK AERA EEKSEE 
4236 : AONF IRM THAT BOTH ATTENTION BITS ARE SET 
4528 O21406 113760 001226 000010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
4239 021414 013737 O0lec6 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4249 O2l422 005037 001244 CLR CKERR’ ;CLEAR THE ’CHECK ERROR’ INDICATOR 
4241 O21426 016037 O000l2 001126 MOV RPDS1 (RO) SBDDAT’ :GET CONTENTS OF 
4542 021434 012737 OO00le OOlle2e MOV SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
4243 021442 001122 ADD SBD R DD RHi1 BASE ADDRESS 
4544 021446 012727 100000 001124 MOV RO, § $GDDAT WHAT REGISTER SHOULD BE 
yo4S5 021454 013737 001126 001164 MOV SBDDAT, STMPD MOVE REGISTER CONTENTS TO ’STMPO’ 
4246 O21462 042737 077777 OO1164 BIC , ¥8tCATA,STMPO sSAV VE SPECIFIED BITS 
4547 021470 023737 001124 OD1164 CMP ' §$GDDAT,STMPO ; COMPARE, THE 
4548 021476 OO1414 BEQ 66S 
4249 Q21500 013737 001126 001174 MOV SBDDAT, STMPY COPY *BAD DATA’ 
4250 021506 042737 100000 001174 BIC #ATA, STMPY ; CLEAR THE MASKED BITS 
4551 O21514 053737 O01174 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
4252 O21522 104010 ERROR 10 *REPORT THE ERROR 
4253 021524 005137 001244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
4254 021530 o00240 66$: NOP 
4255 O21532 005737 001244 TST CKERR sWAS ATTN BIT FOR PORT B SET ? 
4 021536 001402 BEQ +6 T WA 
4257 021540 000137 o22546 JMP is BYP ASS REST OF TEST IF NOT 
4258 Oe!S44 113760 001224 oo0010 MOVB PORTA,RPCS2(RO) *:SELECT PORT 
4259 O2e15S2 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS To LOCATION FOR TYPEOUT 
4960 O21560 005037 001244 CLR CKERR’ sCLEAR THE “CHECK ERROR’ INDICATOR 
4261 021564 016037 OO0012 001126 MOV RPDSI(RO),SBDDAT’ :GET CONTENTS OF RPDS 
4262 021572 012737 OO0Dl2 OO0lle22 MOV #RPDS! $BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
4263 021600 37 001122 ADD $BDADR 
4264 beib04 12737 10 001124 MOV BO ae GDDAT HBT SHOULD BE 
, 4265 Oelele 013737 001126 O01164- MOV SBDDAT, STMPO OVE “REGISTER CONTENTS TO 'STMPO’ 
| 4266 021620 042737 077777 OO1164 BIC #tCATA, STMPO sive SPECI FIED BITS 
| 4267 O2l62e6 023737 001124 001164 CMP SGODAT,STMPO ° ;COMPARE T 
| 4268 bibs bon414 BEQ : 
| 4269 Del 001126 001174 MOV SBD DAT, STMP4 iCOPY *BAD DATA’ 
| 4270 O21644 042737 100000 001174 BIC A, STMPY “CLEAR THE MASKED BITS 
| 4271 e165 3737 001174 001124 BIS sTHPa SGDOAT :?OR’ WITH G00 DATA FOR TYPEOUT 
i272 1 104010 ERROR 10 "REPORT THE ERROR 
4 O2il66e 005137 001244 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
| 4274 O21666 000240 68$: NOP 
| 4275 021670 005737 o01244 TST CKERR ;WAS ATTN BIT FOR PORT A SET ? 
4276 021674 001402 BEQ +6 *BR IF IT WAS 
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MO=11-DORIE“8, QUAL CONTRLR LOGIC TEST - PART 1 MACYI! 27(1006) O2-NOV-76 18:42 PAGE 79 ; 
DERJEA.CMB  O2-NOv-76 18:49 TIS TEST RESET ATTENTION °B’ BY MESSBUS “LEAR 
4222 02167 d00137 O22546 IMP 1$ sBYPASS REST OF TEST IF NOT 
4273 fp RREREFRAEFRALLESSERSLSSSSAELSESESSSLESLESFSLLSELEAESSSSSS SASS FSS 
4g81 ;SEIZE THE DRIVE THROUGH PORT 8 
4283 021702 1:3760 001226 000010 MOVE PORTB,RPCS2(RO) ;SELECT PORT B 
4284 621710 O13737 OOless 001236 MOV PORTS’ SEIZPT STORE SEIZING PORT’S ADDRESS 
4285 pei2ie ooso60 o00512 CLR RPOS1{RO) RPDS! 
488 Sel7ze O8:373s° O0l224 oc01240 MOV PORTA, OPPRT : OPPOSITE’ PORT ADDRESS 
usse © SSSEFSSSFSSLETESSSSSLSESERAARAELESLSSSSLSSEFSLSELSSSSSSLSLSELESFSSHFSS 
4285 issue MASSBUS INIT TO PORT B 
429] 021730 012760 o00040 oo010 MOV SCLR,RPCS2(RO) ;MASSBUS INIT 
ieee C2i736 113760 OCi226 600010 MOVB PORTB,RPCS2(RO) ';SELECT PORT B AGAIN 
| Boo sSSERSESFSESESESLELESRELSLELSELSFSELLSASLEAERERSSESESLSESSESESSSES 
13% VERIFY THAT ATTENTION BIT FOR PORT B CLEARED 
| 4297 021744 005037 O01244 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
ioe Sst seb pies ane oe pies HOY Repl (RO), SRpOAT, ob Re ‘ gonren BOORESS oe ERROR MESSAGE 
a5c¢ 021764 ae 001122 ADD RO RO SBDARR sADD RH11 BASE ADDRESS 
4301 021770 005037 001124 CLR cODAT WHAT REGISTER SHOULD BE 
4302 021774 013737 001126 001164 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO 'STMPO’ 
| 4303 Qe2002 042737 077777 001164 BIC 8tCATA; ST ;SAVE SPECIFIED BITS 
4304 022010 023737 001124 OO1164 CMP EGDDAT; $ sCOMPARE THE BITS 
4305 22016 OO1414 BEQ 725 °BR IF OK 
4306 022020 013737 001126 001174 MOV SBODAT, ST :COPY BAD DATA’ 
| 4307 22026 042737 100000 001174 BIC SATA, STMPY iCLERR THE MASKED BITS 
| 4308 022034 053737 001174 O01124 BIS STMP4, OR’ WITH GOOD DATA FOR TYPEOUT 
| 4309 O22042 104047 ERROR 47 > TYPE MESSAGE 47 
| 4310 Oe2044 605137 o01244 COM CKERR ?SET THE REGISTER COMPARE ERROR INDICATOR 
4311 O22050 00240 72$: NOP 
| wait 8 ; LHHASLALEELELASLELELRELELEL ALLELE LELAELLLEELELA LAA LLAAALLAALALES 
4316 ;RELEASE THE DRIVE FROM PORT B 
| 4317 22052 113760 001226 000010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
| 4318 O22060 013737 001226 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 4213 Deeb 012760 O00013 00000 MOV #13, Bees Ro)’ ; ISSUE RELEASE THROUGH PORT B 
azel SVERIFY THAT THE ORIVE IS IN NEUTRAL 
4323 022074 00 : ERROR ’ INDICATOR 
4324 Blea? fie 001122 MOV ars) O51, SBOAOR iron THE Me nonntee oF RPDS! FOR TYPEOUT 
i325 001122 * ADD 

4258 es ie 0011 MOV RPOS1 (RO) RO) STHPe iGer sae graTus REGISTER FROM PORT A. 

4359 170 O01164 MOV STMP, STHbD i COPY 

4330 4 100 OO1164 BIC #ATA! VV, STMPO NOENT BITS FROM THE COPY 

6037 


Ce ee ae ee ee ee 


FSO LRIVFKS 


HE DRIVE” STATUS REGISTER FROM PORT B. 


RRRRRRRRR 


ReCS2(RO » SEE EeT ROR 
RO 3 ;GET T 
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DZRJEA.CNB =" O2-NOV-76 18:49 T15 TEST RESET ATTENTION 'B* BY MASSBUS CLEAR 
4333 Oéel 013737 601172 001166 MOV STMP ;COPY IT INTO *STMP1’ 
BSsiz2 O4e737 100100 001166 BIC barat, SH CLEAR PORT DEPENDENT SITS FROM THE C 
4335 p55305 023737 O01164 001166 CMP $inPO, StHPL s1S THE STATUS REGISTER THE SAME RON 86 TH PORTS ? 






4 BSsstp 37 O01164 aut STMPO iB olértes ARE THE SAME: ARE THEY ZERO ” 
4338 Oeccl4 OO104S BNE “os sReGt NOT 
eg Bes ie” ices Geveehy te Tene 1" SED 
4341 O222e4 013737 varthid 001126 74S: MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
4au3 Beses0 3760 DOLsee SODDIO FO OTe Nee ny TeEEE I pote pir Test SHOMS DRIVE oT IN NEUTRAL 
ee Hes Bry US gi ere ag ge ene rer 
usie Geeesy O1s737 go1ee4 901234 HOV PORTH, BTNBR i SEIZING PORT od EST SHOWS DRIVE NOT IN NEUTRAL 
pssete ree 001224 o00010 MOVE SORTA RPeSeCRO) isELecT PORT A. 
ia3 022276 005737 001166 ist TMP sSEE F STATUS EQ ZERO FROM PORT B. 
4351 022304 ierzad 177777 001250 75$: MOV 1,RELERR *SET ’RELEASE ERROR’ INDICATOR 
ioe 012760 000011 000000 MOV ii’ RPCSI(RO) CLEAR THE DRIVE 
4333 012760 000013 000000 HOV als, /RPCSI(RO) — ; RELEASE THE DRIVE - 
4355 pssas8 ot 001170 001126 76%: MOV STnP2, SBODAT if ook OK EGR 5 T PATLURES WHEN RPDS1 READ 
4 022336 013727 OO01224 001234 MOV PORTA’ PTNBR S CHONGE PORT NUMBER 
022344 Owe? 37 490050 901179 BIC SATA, $TMP2 *DON’T CHECK THE ATTN BIT 
| 4358 O223S¢ 1124 0011 CMP SGDOAT, S STMP2 =: ALL BITS OK 
u3ea fesse | SoacoP 5 ie RT ERR 8 
ee iene O1sr37 001172 901126 778: HOV Tm TH3, SB0DAT ; CHE CK REDS! FOR BIT FAILURES - FROM PORT B. 
4 042737 100000 001172 BIC #ATA, $TMP3 sDON" T CHECK THE ATTN BIT 
4364 022406 023737 001124 001172 CMP SGODAT, STMP3 ise ee OK FROM PORT B. 
4365 022414 00140! BEQ 78S BR IF 
| uae 55428 aed 78S: SOP. 4 — 
4 J 
ise $ eESELESSLELEESERE LEHR EKERHE LS RELL MASLAK FKAHSEKERAALTE REFRESH HALLE 
4370 :CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 
| 4372 O22422 113760 001224 000010 MOVB PORTA,RPCS2(RO) ;SELECT PORT 
4373 022430 it Boisey 901234 MOV PORTA, PTNBR eet eae TO LOCATION. FOR TYPEOUT 
4374 Gec43e, 1244 CLR tee CATOR 
| 4375 01 Guoui2 001126 MOV Reber c GET CON OF RPDSL 
4 Die? 37 950016 O0lie2 HOV aR ;FoAn REGIS Ropress. OF ERROR MESSAGE 
| 4378 12737 100000 001124 MOV sata T WHAT REGI 
+ 4379 tad 1 1126 OO1164 MOV é . tei CONTENTS TO *$TMPO’ 
| 4380 Deed? bol 164 BIC 8tCATA, ST ; I 
| 4381 1124 OO01164 CMP he ;C 
| 35 Oeee1s O1a7a7 001174 HOV _SBOOAT, STHPS iF AO pata’ 
| 43B4 testes se j 01174 BIC BATA stre4 *CLE Bs oa 0 BITS 
| 4385 001174 001124 Elon $ TMP4, SGDDA i708 WITH GOOD DATA FOR TYPEOUT 
; 4 B5se38 137 001244 COM EKERR SET THE Be SisteR COMPARE ERROR INDICATOR 
) 43288 O22e544 O00C40 79S: NOP 
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DZRJEA.CMB = O2-NOV-76 18:49 T1S TEST RESET ATTENTION °B’ BY MASSBUS CLEAR 
4389 OeeS4 000004 i$: SLOPE ;LOOP ? 
4390 
332 
4 ; jiezyonpeoenneneseecneserseersrerectensenoensgsenegensessessyons 
nie seTesT TEST CLEAR ATTENTION BY MASSSUS INIT - DRIVE IN NEUTRAL 
4 T¥VERIFY THAT MASSBUS CLEAR DOES NOT RESET ATTENTION BITS WHEN THE 
4 DRIVE IS IN NEUTRAL. 


ota T :WHAT ata rh} BES 
a4 ; 
SBODAT,STMPO ' ;MOVE REGISTER CONTENTS TO *STMPO’ 


4398 it 
4398 i A. SET THE ATTENTION BITS FOR BOTH PORTS. 
#40) ii B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
4403 t# 6C. ISSUE A MASSBUS INIT. VERIFY THAT NEITHER ATTENTION BIT HAS 
4404 # 
wae nescen i weg steam cmt g ag EPSEPSS SEES SSRSSLLSELALEL EL LFEPFRS 
4408 O22550 005737 001274 KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
4409 022554 001406 2s *BR IF NOT 
4410 022556 100002 1$ *BR IF JUST ENTERED TEST 
uaz OSSeeN Giersy SOFe7> ool27y is: nov Bei EOE TNRLE TEST INDICATOR 
4413 bees7e 112737 000016 OO01102 2$: MOVB #16 STSTNM TEST NUMBER 
4414 01 O22622 001106 STESTI6,SLPADR ;LOAD LOOP ON TEST ADDRESS 
wie Est) piss3e havea rates HOV sy eeri ghee om 4 LERST TOM gears 
4417 Deeper rea 001100 TEST16: MOV ast LOAD THE SO AONB OIN NTER 
ma 3 ~ EEL EGEEEEEEEEEEEEEEETEEGEEEEEEEEEEEESEETEETEEEEEEETEEEEESES SES 
wed ;SET ATTENTION BITS FOR BOTH PORTS 
“a De2b2% 113760 001224 900010, nove PORTA B,RPCSECRO) sSELECT PORT 64S 
444 14 CLR feet ig A hide if 
445s 013760 OO lee 000010 MOV TB,RPCS2(RO) ;SELECT OTHER PORT 
Wie Oe2654 005760 le bus: Tet ROSILRD) ;WATT FOR DRIVE TO TIMEOUT 
Wu58 BSSEES BreveB 177777 o00014 fy BT RpericRO) — iFGRCE WON PORT cee Oo 
4429 022670 005060 000014 CLR 1(RO) H 
44 74 113760 001224 000010 MOVB TA, RPCS2(RO) ;SELECT POR vets AGAIN 
443] o00di1e2 65S: TST RPOS1(RO) *WAIT FOR DRIVE TO TIMEOUT 
ie 022706 001775 BEQ 65S BR IF DRIVE HASN’T TIMED OUT 
qyey s  SEEKELEAEKSSESREREAAARREESE SAREE ESARRSRSEREE REAR RRR RRE SHAR ESE 
Hi :CONFIRM THAT BOTH ATTENTION BITS ARE SET 
4437 1 001 0 MOVB (Oi T 
ae | ig Ae ae peal 
fo 4 ree eee ese ae 
444] 00001 11 HOV 1 ob Re ERROR MESSAGE 
022750 11 MOV 
022756 i! MOV 
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) 0 82 
TEST CLEAR ATTENTION BY MASSBUS INIT - DRIVE IN NEUTRAL 


Bic 


BtCATA,STMPO ;SAVE SPECIFIED BITS 
SGODAT,STMPO ° ;COMPARE THE BITS 

SESoAT.STHPY  TeORY BAD DATAY 

Sapo itiea SEP EAR MASKED BITS 

STHP4, SGDOAT OR’ WITH DATA FOR TYPEOUT 


sREPORT THE 
CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
CKERR ;WAS ATTN BIT FOR PORT A SET ? 
+6 ;BR_IF IT WAS 


: T OF TEST IF NOT 
bSare, RPCS2(RO) Breet TB 
TB;PTNBR ;MOVE PORT ADORESS TO LOCATION FOR TYPEOUT 


RR sCLEAR THE "CHECK ERROR’ INDICATOR 
RPDS1(RO),SBDDAT’ :GET C S OF 1 
#RPDS1,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO *ADD RH11 BASE ADDRESS 

sAtA. SGDDAT ;WHAT REGISTER SHOULD BE 

SEO0AT, $THEO *MOVE REGISTER CONTENTS TO ’S$TMPO’ 
8tCATA,$ ;SAVE SPECIFIED BITS 

SGDOAT, STHPO ; COMPARE & THE BITS 

SBODAT,STMPY § ;COPY *BAD DATA’ 

SATA, STMPY *CLEAR THE MASKED BITS 

STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 


10 ;REPORT THE 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR ;WAS ATTN BIT FOR PORT B SET ? 

+6 ;BR_ IF IT 

1§ ;BYPASS REST OF TEST IF NOT 


3 EEE EEE ESE EEE 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 


001126 70S: 


BagenasasEse 


Segaane 


FOR THE ADDRESS OF RPDSL FOR TYPEQUT 


1, SBDAOR 
RO, SBDADR $ADO_ THE 10 BASE afbORESS 
Biron, saoner, scorers] 
STMP2 TMPO? 


§ 
BATA! VV AR PORT DEPENDENT BITS FROM THE COPY 
PORTB RPeeo RO) i chEReY PORT 8. 
GET THE DRIVE STATUS REGISTER FROM PORT B. 
COPY I 0 *STMPL’ 
BATA'VV.STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
TMPO, STMP1 : Is THE TATUS REGISTER 


; 
y 
) ;SELECT PORT A. 
RPOSI(RO).§TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
oes > COPY * NTO 3 
; 
; 
p 


: T 
STNPO {REGISTERS ARE THE SAME: ARE THEY ZERO ? 
*REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
"BYPASS THE REST OF THE CHECK 

*SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


THE SAME FROM BOTH PORTS ? 
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DZRJER.CNB = Oe-NOV-76 18:49 T16 TEST CLEAR ATTENTION BY MASSBUS INIT - DRIVE IN NEUTRAL 


450 basse 013737 001226 001234 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
Weoe 113760 O0le26 O00010 MOVB PORTB;RPCS2(RO) ;SELECT PORT B. 
4503 3358 737 OO1164 ey st MPO’ Bee IF weatus EQ 0 FROM PORT A. 
1414 te 1$ IF ZERO 
4505 023264 013737 001224 001234 MOV PORTA, PTNBR ; SEIZING FORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4506 023372 013737 001172 001126 MOV STMP3,SBDDAT i; =BAD bATA FOR ERROR TYPE DUT 
4507 O23400 113760 001224 MOVB PORTA, RPCS2(RO) ; SELE T PORT A. 
4308 Pate rg 00116 TST STNP ; SEE ‘Dad STATUS EQ ZERO FROM PORT B. 
1 101 BNE og : 
4510 Oe3s4i4 012737 177777 001250 718: MOV “1, REL : * RELEASE ERROR’ INDICATOR 
451 012760 600011 00000 MOV #11,RPCS1(RO) ‘ator THE DRIVE 
45} 30 012760 000013 000000 MOV 13,RPCS1(RO)  ;ReLEASE VE 
451 % 1 ERROR 26 * TYPE ERROR MESSAGE 26 
4514 013737 OO01170 001126 725: MOV STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RPDS! READ 
4315 023446 01373? Oo1egs 001234 MOV PORTA. PTNBR :C PORT NUMBER 
16 lie4 001170 CMP SGDOAT,STiIP2 ALL BITS OK ? 
4517 001401 BEQ 738 BR IF OK FROM PORT A. 
418 104007 ERROR 7 T 
451 013737 001172 001126 73%: #§ MOV STMP3, SBDDAT ‘CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
74 013737 001226 001234 MOV PORTB. PTNBR PORT R 
3737 001124 001172 CMP SGDDAT, STMP3 tCEE OK FROM PORT B. 
023510 001401 BEQ 74§ BR IF OK 
O23Si2 104007 ERROR 7 REPORT ERROR 
023514 pone40 74$: . 
023516 37 001250 TST RELERR ;WAS DRIVE IN NEUTRAL ? 4 
001402 BEQ.siw¥ #6 *BR IF IT WAS 
023524 000137 o24006 g : BYP OF TE 
HBHBHHHBEHHHEHBHHHHEHHHHEHHEEHHHHHHHEBHH HEHEHE HEE 
tESSUE T THE MASSBUS INIT 
023530 012760 oOOCO4O op0010 MOV #CLR,RPCS2(RO) ;ISSUE A MASSBUS INIT 


3 © SELEKEKAAESAERHLELE SALAH ELELEA LEE LARAAAAAAAE HARKS RAKE LLALAAKEZES 
:CHECK THE ATTENTION BITS OF BOTH PORTS - 


MOVB ponte. RPCS2(RO) ;SELECT PORT 


0235% 11 1224 000010 
023544 i137e0 lee 001234 HOV POR A; PTNBR sHOVE PORT pbORESS f° LOCATION FOR TYPEOUT 
016037 1 001126 MOV SePDaL SOR CONTENTS OF RPDS1 
023564 012737 001122 MOV rol Rail ar ADDRESS OF ERROR NESSAGE 
Beaere Dieta? OG AOU Ra SSN BPeHOULD BES 
i : il ange HO wt , wt ReCis NTS TO ’STMPO’ 
Bn here Be mi || YL ETD ile Se ee 
1124 OO1164 CMP SGDDAT, ST 
Ee 55 ee 001126 001174 cay SBODAT, STMPY Ser aK DATA’ © 
6e3636 150066 001124 BIC BATA, StMPY HE ‘BITS 
1174 001124 BIS STMP4,SGDDAT  ;° oa GOOD DATA FOR TYPEOUT 
peareq 6 EON” KERR HE REGISTER 
023654 005137 001244 COM SET T GISTER COMPARE ERROR INDICATOR 
023660 75S: NOP 
13760 001226 900019 MOVB (RO) ;SELECT PORT 
0236 i 001 1234 MOV FORT *PT ;MO\ PORT ADDRESS TO LOCATION FOR TYPEOUT 
0236 001 CLR AR THE 'CHECK ERROR’ INDICATOR 
4556 023702 016037 000012 001126 MOV ce sBoDaT’ Leer CONTENTS OF RPDS 


FURS SESE aes soe Un eb Re Boe NOUNS 





ND-1 Py ea 
DZRIEA. CNB 


2 eb 


sseceseens 
ee 
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man na 


2RRERB 


SSE RRSRSB sean Eee Mae MRREBRE RSIS 
yeep yy 
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wMe-O 
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46 


eg 0 


001124 
001126 
il 
001244 


1224 


001122 


000010 


TEST éLEAR ATTENTION BY MAS i ‘fut o - oRIVE IN NEUTRAL 


my RO, SB0A0R Fore Ru GRE ADORESS OF ERROR MESSAGE 


HOV Scp0aT | sHHAT NE REG 8 Side TENTS TO ’STMFO’ 
BIC cat Sites sshie eee trie eis 
BEQ 
MOV 1 STMPY 1m ’BAD DATA’ 
BIC BATA, STMPY *CLEAR THE 
BIS $TMP4, SGDDAT ; OR WITH GOOD A "Bor TYPEOUT 
ERROR 51 YPE MESSAGE S 
" con CKERR pes THE REGISTER COMPARE ERROR INDICATOR 
1$:_ SCOPE sLOOP ? 
; iteet 7 That SELGE BY RPCS] READ THROUGH PORT A 
; TE TEST SEIZE BY RPCS1 READ THROUGH PORT ’A’ 
hen THAT READING THE CONTROL REGISTER (RPCS1) SEIZES THE DRIVE. 
:# A. READ THE CONTROL REGISTER (RPCS1) THROUGH PORT ’A’; VERIFY THAT 
i THE DRIVE IS SEIZED. 
*# B. PORT ’A’ RIFY THAT THE DRIVE 
: ‘ BEeUE ED Fae Ra AND : HR SE TTHER atrint ton BIT IS SET. 
FF sienna 
a KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
BEG 2g *BR IF NOT 
BP is. *BR IF JUST TERED TEST 
>RETURN & NEXT TEST NUMBER 
1S: MOV ;SET SINGLE TEST INDICATOR 
2$: MOVB t17 a -TE rN 
MOV 5 s LOAD BOF ON Test ADDRESS - 
MOV sreeti7" St PERR 


TESTI7: HOV e208, gzIres eae Rist ae 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
CLR RFDS1{RO) :SEIZE THE vr 
MOV #11,RPCS1(RO) ISSUE ORI AY Eo 
NOV #13,RPCSI(RO) RELEASE THE DRIVE 
COR” <i vla ETE TOR RIVE THROUGH FORT °B’ 
MOV tT RPCSS (RO) 7d DRIVE e Fae ie, 
MOV #13" RPCS1(RO)  ;RELEASE THE BRIVe 

5 5 RERLERERE LESSEE PRALELALLLLELLLAERERALALLLES RRRARALAAAAAAAALLAA LEE 
;SEIZE THE DRIVE THROUGH PORT A 


MOVE PORTA,RPCS2(RD) ;SELECT PORT A 


7 
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DZRJEA.CNB ‘Oe-NOV-76 18:49 T1? TEST SEIZE BY RPCSI READ THROUGH PORT ’A’ 
4513 024150 013737 001224 001236 MOV PORTA, SEIZPT sSTORE SEIZING PORT’S ADDRESS 
4614 024156 neath 000000 TST RPCS1{RO) RHCSI 
4615 ibe 1 1226 010 MOVE § PORTB,RPCS2(RO) "-SELECT PORT B 
416 l 1 lee6 001234 MOV PORTB,PTNBR onovk PORT ADDRESS TO LOCATION FOR TYPEOUT 
461 7% Ol lee O01e40 MOV PORTB, OPPRT OPPOSITE’ PORT T AODR 
welB oy 16037 po001< 1126 Mov RPDS RPDS1(RO), SBDDAT’ alee IF DRIVE SEIZED BY FORT A 
seed 216 ee inte 001122 #RPDS1,SBDADR  :GENERAT BAD REGISTER ADDRESS 
Hoel 224 01128 CLR T ‘REGISTER SHOULD 
3737 OOlle4 001126 CMP $GDDAT,SBDDAT IS THE REGISTER ZERO 
ups ae OOoOs BE ROR 4 ET PORT THE ERROR 
4625 at 0013? 024674 ja 1S *BYPASS REST OF THE SUBTEST 
Wes Sousue 113760 001224 900010 "  MOVB-»~=—s PORTA, RPCS2(RD) SELECT POR 
4628 Oe4eS4 013737 OO0lee4 001234 MOV PORTA.PTNBR ;MOVE PORT aborese TO LOCATION FOR TYPEOUT 
4629 01 boogie 001126 MOV RPOS1 (RO) Saobay SEE IF SEIZING PORT SEES CORRECT STATUS 
4630 ol O11 001124 MOV MOL'PGM! DPR! DRY! VV. § 4SG00AT- “iBIPECTED STATUS 
4631 1 1124 OO1166 MOV : ”;USE. 6000 
4632 024304 005137 001166 COM STMP1 THE EXPECTED STATUS 
4633 024310 O1 001126 001164 MOV SBDDAT,STMPO SAVE THE ACTUAL STA Tus 
4634 316 OY 001166 OO1164 BIC STMP1. STMPO *CLEAR UNWANTED BITS 
4635 324 023737 001124 001164 CMP SGDDAT,STMPO =: ARE THE EXPECTED STATUS BITS SET ? 
4636 024332 001401 BEQ 65$ °BR IF THEY ARE 
4637 024334 104005 ERROR S *REPORT THE 
| 4538 024336 000240 65S: 
eat 83 BLELEEELZELS LEX EE ELE KEELER EEA ES REE EE ESLER SEERA EKER SE REAERALSSE 
| ueHe ;RELEASE THE DRIVE FROM PORT A 
| W644 024340 113760 001224 O00010 MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
| 4645 024346 013737 O0le24 001234 MOV PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Weve Oedss4 Ole760 O00013 00000 MOV  #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 
| ue4B SVERIFY THAT THE DRIVE IS IN NEUTRAL 
| ager Seusee brevay ponbie 001122 ce Ct«#RG ES ae ne ADDRESS BF REEL FOR IYPEOGT 
Hebe 024374 betta? 0011 ADD RO, SEOADR ey 1/0 BASE ADDRE Aporese. OF 
4653 Oc4400 01 011700 001124 MOV #MOL! PGM! DPR siubet i GOMPARISON CONSTANT 
4654 Oe4406 113760 001224 000010 MOVB PORTA RPCSECR) pea 
4655 024414 016037 000012 001170 MOV RO} Sheet Ont Drive STATUS REGISTER FROM PORT A. 
| 4656 Geu4e2 013737 001170 001164 MOV pat 
| 4657 Oo44 O42? 37 100100 001164 BIC BATAIYV, ST PORT DEPENOENT BITS FROM THE COPY 
uees aid At nares Sor i72 Seve posit GSecRO) | SELE "DRIVE: STAT REGISTER FROM PORT 8 
| 4660 Besisg Wee oali7e 001166 MOV STMP3 ay a ngs we : 
| 4661 042737 100100 001166 BIC BATA! UV, STMPL SNOEHT BITS FROM THE COPY 
462 Oe4466 023737 001164 001166 CMP STMPO, STMP1 cai THE OrATUS GISTER THE SAME FROM SOTH PORTS ? 
4663 Oc4474 001006 BNE 665 BR IF NOT 
4664 737 OO1164 TST STMPO *REG STERS ARE THE SAME: ARE THEY ZERO ? 
4665 1045 BNE 68S "BR IF NO 
| 4666 104046 ERROR 46 *REPORT ORI VE NOT I T IN NEUTRAL OR NOT SEIZED 
| 4667 Oe4506 000137 MP 70$ *BYPASS THE THE CHECKS 
| 668 Ge4S12 013737 001170 00112 66S: MOV STMP2,SBDDAT  ;SET UP POSSIBLE Sho DATA FOR ERROR MESSAGE 
| 
{ 
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DZRIEA. T17 TEST 


"O2-NOV-76 18:49 
013737 001226 


113760 O0lecb 


46 DeYS7¢ Tees 177777 
0 


a3 
: 


yas 


888 888 


a 
Os be pe 


S88 888 
ne 


5 
-o 

8 
33 
85 
SS 


z 
- 
8 
3 


; 
aad 
BABAR 

: 

: 


S$ 
5 
ToT 
Son 
Be 


5 
: 


oe S 
S28 ss 


ok AS Ld 
eo 


SEIZE BY RPCS1 READ THROUGH PORT ’A’ 


MOV PORTB,PTNBR ; SEIZING ao IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB § PORTB,RPCS2(RO) jBELECT PORT 


iM SHPO" BR IE TATUS EQ O FROM PORT A. 
MOV ICE ING PORT F TEST DRIVE NOT IN NEUTRAL 
HOV, Bet Ble iste Beth DATAY FOR ERROR TPE 21 
TST : oer ue EQ@ ZERO FROM PORT 8B. 
ir Suert Pe 
67$: MOV #-1,RELERR ;SET Rr ae ERROR’ INDICATOR 
MOV 11° "RPCS1( RO) ;CLEAR THE DRIVE 


#13,RPCSI(RO) REL THE DRIVE 
Fa TOBE ER 


:TYPE ERROR MESSAGE 26 

68S: MOV STMP2,SBDDAT § ;LOOK FOR BIT FAILURES WHEN RPOS! READ 

MOV PORTA: PTNBR ; CHANGE PORT 

CMP SGDDAT,STMP2 ALL BITS OK ? 

BEQ b3s ;BR TF Ok FROM PORT A. 
69S: MOV $TMP3, SBDDAT CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 

MOV PORTB.PTNBR :CHANGE PORT NUMBE: 

CMP SGDDAT,STMP3 § :SEE IF READ OK FROM PORT B. 


BEQ 70$ 3BR IF _OK 
ERROR 7 REPORT ERROR 
70$: NOP 
1$: SCOPE ;LOOP ? 
; [Penge ppssnannmessovevonecpenscenstesusteuseventecsenessaeeneene 
j RTE TEST SEIZE BY RPCS1 READ THROUGH PORT 'B’ 


t SVERIFY THAT READING THE CONTROL REGISTER (RPCS1) SEIZES THE DRIVE. 


:% 
;# A. READ THE CONTROL REGISTER (RPCS1) THROUGH PORT °B’; VERIFY THAT 
te THE DRIVE IS SEIZED. 


3% 
3# B. ISSUE A RELEASE COMMAND THROUGH PORT °B’; VERIFY THAT THE DRIVE 
* RETURNED TO NEUTRAL AND THAT NEITHER atrintion BIT IS SET. 


% 
i a UE ns pada easel 
. te KYBCTL ING ONLY SINGLE TESTS ? 
bea OSS Te NOY 
BPL 1$ ie IF JUST ENTERED TEST 
IMP c *RETURN & GET NEXT TEST NUMBER 
: MOV -1,KYBCTL *SET SINGLE TEST INDICATOR 


ST NUMBER 
20, SLPADR He to ON TEST wit 
#TEST2O, SLPERR QOP ON ERROR ADDRESS 


TEST20: NOV #4000. » SLIME Basan. staee oe 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA RPCS2(RO) ;SELECT PORT #A 
CLR RPDS1{RO) *SEIZE THE DRIVE 

MOV #11,RPCSI(RO)  SISSUE DRIVE CLEAR 
MOV 413° RPCSI(RO) RELEASE THE DRIVE 
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DZRJEA.CMB  ‘O2-NOV-76 18:49 T20 TEST SEIZE BY RPCS] READ THROUGH PORT 'B’ 
avee at se bED poe - eRe poostthoe ET Te ORTY THROUGH PORT ’B’ 
4727 025014 seas 000011 oo0000 MOV It RPCSL CRO) i PEdcE BRE ve AYER 
42 025022 O1e760 0909013 o00000 MOY #13,RPCS1(RO) RELEASE THE DRIVE 
ne s 5 RARRAAELLALE KEL ELLLLELERAA ALES LAKE ARES EERESRRRLLELA LER ELSE REFERS 
i732 ;SEIZE THE DRIVE THROUGH PORT B 
4734 025030 113760 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B " 
1735 025036 013737 OOle26 001236 MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRES 
4 025044 005760 TST RPCS1URO) : RHCS1 
4737 025050 113760 O0l224 000010 MOVB PORTA,RPCS2(RO) ":SELECT PORT A 
wre fase Glee Gatee, Gales Ty FORTS pty SVR pb oP BgbaLion Fon Twreour 
ue4T OBE100 olet3e poise ee NOV Se aaa hit BASE ADDRESS ORT 
Woe pseits peers vibes ae err scopar ee GENERATE SOULD BE OE erm 
u7uy Ge5116 023737 O01124% 001126 CMP SGDDAT,SBDDAT IS THE REGISTER ZERO 
doae, poetse | Sodape petoR aS OE OORT THE ERROR 
plant 625130 000137 o2ss62 = 1$ :BYPASS REST OF THE SUBTEST 
4749 025134 113760 001226 000010 "  MOVB- ~=—s PORTB,RPCS2(RO) ;SELECT PORT B 
4750 025142 013737 O0lec6 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
uves Geeiee piovay Bii700 Borie MOV RDS LO) ASEDOAT, {SEE JE SEIZING PORT, SEES CORRECT STATUS 
4753 025164 013737 001124 001166 MOV SGDDAT,STMP1 ;USE GOOD DATA’AS A MASK 
4754 025172 005137 O01166 COM STMP1 ;COMPLEMENT THE EXPECTED STATUS 
4755 176 013737 OOll2e6 001164 MOV SBDDAT,STMPO §;SAVE THE ACTUAL STATUS 
4756 025204 043737 001166 O01164 BIC STMP1, $TMPO ‘CLEAR UNWANTED BITS 
4757 OeS2el2 023737 OOlle4 OO1164 CMP SGDDAT,STMPO § ARE THE EXPECTED STATUS BITS SET ? 
4758 025220 001401 BEQ 65$ :2R IF THEY ARE 
4759 O2See2 104005 ERROR S REPORT THE ERROR 
i760 025224 653: NOP 
a3es H ¢ RERRRLLLARREL LAA LALA R ELLA RAEL ELLER LALA ERELE REALE LALLA RR LLELE 
4764 sRELEASE THE DRIVE FROM PORT B 
4766 g252e6 113760 001226 o00010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT 8 
4767 OeSe34 013737 ODlech 001234 MOV PORTB.PTNBR ;MCVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4768 O25242 012760 000013 000000 MOV #13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 
| 4770 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
| 4772 025250 005037 001250 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
4773 Deseo O1e7 37 poodle 001122 MOV aRPDS1 SBDADR iFORM, THE ADDRESS OF RPDS! FOR TYPEOUT 
| 4775 025266 012737 011700 001124 MOV. § #MOL!PGM!DPR!DRY! vv, $GDuA ,CORPARTSON CONSTANT 
| 4 025274 113760 001224 o00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT’A. 
| dpe peesio biava? poLI7a potted oy Bre Ltep) STIG sGeT THe GRIVE, STATUS REGISTER FROM PORT A. 
4779 025316 042737 100100 001164 BIC #ATA'WV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
4780 113760 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 
| 
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MO-11-DZ2RJE-A, DUAL CONTRLR 5 ened TEST -_PART 1 ey 27(1006) 
DZRJEA. 6 18:4 T20 


66S: 


67S: 


685: 


69S: 


708: 


1$: 


jATEST 


Sr a rr re 


5 HEHE HEHE HEHEHE HEE HE EEE HEHE RHEE HEHE EE REE EEE EEE EEE EERE EERE EEE 
T 21 TEST ’PORT REQUEST’ FROM PORT ’A’ 


t SVERIFY THAT WRITING A DRIVE REGISTER zeTs "PORT REQUEST’ WHEN THE 


ad 


$ RERREA REE E REEL EEE REEL EERE RR EERE R EAE EE EERE RE AREA EERE REREREREE 
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TEST SEIZE SY RPCS1 READ THROUGH PORT ’B’ 


RPDS1(RO) STMP3 ; iSpy ty IN DRIVE Balt REGISTER FROM PORT B. 


STMP3, STMP1 
BIC arate STMP1 CLEAR P PENDENT BITS FROM THE COPY 
CMP STHPO, StH 1S THE Or ATUS REGISTER THE SAME FROM BOTH PORTS ? 

















BNE 6$ ;BR IF NO 

TST STMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 685 7BR F_NOT 

ERROR 46 ;REPORT DRIVE NOT IN he iret OR NOT SEIZED 

JMP 70$ BYPASS THE REST OF THE CHECKS 

MOV $TMP2, SBDDAT ;SET_UP "PRT IF BaD DATA FOR ERROR MESSAGE 

MOV PORTB, PTNBR ;SEIZING PORT EST SHOWS DRIVE NOT IN NEUTRAL 
MOVB § PORTB,RPCS2(RO) sSELEET BO 

ped STHPO" fe STATUS EQ O FROM PORT A. 

MOV PORTA, 4h, SEIZING Tee IF_TEST sOus DRIVE NOT IN NEUTRAL 
MOV STMP3, SBDDAT ;’BAD DAT Th ERROR TYPE OUT 

MOVB PORTA, RPCS2(RO) ;SELECT PORT 

TST STMP ;SEE IF STATUS. EQ ZERO FROM PORT B. 

BNE ees :BR_IF NOT 

MOV #-1,RELERR SET *RELEASE ERROR’ INDICATOR 





MOV a1 ,RPCSI(RO)  ;CLEAR THE DRIVE 
MOV #13, RPCS1(RO) ; RELEASE THE DRIVE 


26 TYPE ERROR MESSAGE 26 
MOV STMP2, SBDDAT LOOK FOR PORT FAILURES WHEN RPDS1 READ 






MOV PORTA’ PTNBR 
CMP SGDDAT,STMP2 ALL BITS OK ? - 
BEQ Bs *BR IF OK FROM PORT A. j 
ERROR *REPORT ERROR 

MOV STMP3,SBDDAT § :CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
MOV - PORTB’PTNBR : CHANGE MBER 

cH . SGDOAT, STMP3.  ;SEE IF READ OK FROM PORT B. 

ERROR 7 “REPORT ERROR 

SCOPE LOOP ? 

















DRIVE IS SEIZED BY THE OTHER POR 
SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RPDS1. 


WRITE O’S INTO RPDS1 FROM PORT ’A’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ’B’. 


ISSUE A RELEASE COMMAND FROM PORT °B’ AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT ’A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT ’A’ AND IS NOT SET FOR PORT 'B’. 


ISSUE A RELEASE COMMAND THROUGH PORT ’A’ AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
















07 
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DZRIEA. CNB "02-Nov-76 18: Tel 


4837 OeS564 


4874 O2S766 


005737 


005060 


49 


001274 


sss 
ss 
Ratatat 


Bess 
Wevy 


000012 


; 


001274 


000010 
000000 
000000 
000010 
0000C0 
000000 


000010 
001236 


000010 


TSTel: 


TEST *PORT REQUEST’ FROM PORT ’A’ 


a KYBCTL OR IE NOT ONLY SINGLE TESTS ? 
BFC BR F JUST ENTERED TEST 

JMP EXEC RETURN & GET NEXT TEST NUMBER 
MOV #-1,KYBCTL ;SET SINGLE TEST INDICATOR 
MOVB = #21, STST : TEST 


1, STSTNM NUM 
MOV STESTEL, SLPAOR ;LOAD LOOP ON TEST ADDRESS 


MO a : ER 
: MOV #STACK, SP OAD THE STACK POINTER 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
RPDS1(RO) EIZE THE DRIV 
MOV ail, RECS! (RO) *ISSUE DRIVE CLEAR 
#13°RPCSI(RO) RE 
MOVB Ports RPCS2(RO) j SELECT. PORT 
CLR RPDS1 (RO) ied ze TH re DRIVE I THROUGH PORT ’B” 


MOV #11,RPC 1¢R0) 
MOV #13, RPCS1(RO) RELEASE THE DRIVE 


5p RERRREL LARA RELA ERE RER ERA EL EE REEL RRR LE RE LAER ELE LEE RLELEELLLLERE 


;SEIZE THE DRIVE THROUGH PORT B 


MOVB §PORTB,RPCS2(RO) ;SELECT PORT B 

MOV PORTB, SEIZPT iste SEIZING PORT’S ADDRESS 

CLR RPDS1tRO) RIT RPDS1 

MOV PORTA, OPPRT PPOSITE? ahoRT ADDRESS 

MOVB = PORTA; RPCS2(RD) SELECT E 

MOV PORTA, PTNBR aa PORT abpRese TO LOCATION FOR TYPEOQUT 


$ EX KSEE LEE LLL SS AR AREER EEK ERE LEEK REL ER ERE RES EE ERR EEE ERE REL KER EEE 
SET PORT REQUEST 


CLR RPDS1(RO) ;SET PORT REQUEST FOR PORT A 


; Sag in gg oe ge ger r= ae aegmampenaoes 
SRELEASE THROUGH PORT B. ORIVE SHOULD SWITCH TO PORT A 


;RELEASE THE DRIVE FROM PORT B 


MOVB  PORTB,RPCS2(RO)_ ;SELECT PORT 8 
MOV ORTB OVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13, Becst cra) sISSUE RELEASE THROUGH PORT B 


; VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


CLR REL LERR jSLEAR "RELEASE ERROR’ INDICATOR 
MOV ATA'MOL!PGM!DPRIDRY!VV,SGDDAT ;COMPARISON CONSTANT 
MOV #RPDS1 SBDADR REGISTER ADDRESS’ INCREMENT 

ADD REGISTER BA se ADDRESS FOR TYPEOUT 
MOVB PORTA,RPCS2(RO) *;SELECT PORT 
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DZRJEA. CMB 18: Tel TEST *PORT REQUEST’ FROM PORT ’A’ 


gi 
a 


USSt OeEONe 
Wess beEbeM 
4896 026062 
4897 026070 
4898 026076 
me 026100 
yaor Bseibe 
4902 026110 
4903 026116 
4904 026124 
490S 026132 
“ 026134 
4 026136 
ae aah 
Waid BSeies 
4911 026160 
4912 026166 
4913 026174 
4914 026200 
4915 026204 
WaI? OSEEeH 
Wai OSe556 
49139 026230 
4920 026236 
4921 Oe6244 
4922 Oe62eS2 
4923 026254 
4924 026260 
4925 Oeb262 
4926 026270 
4927 026276 
4928 026 
4929 02631 
4930 026316 
4931 
49 026330 
4933 026336 
026344 
4935 026352 
4936 026354 
4937 O26362 
4938 026370 
4939 026376 
4940 026400 
i 4941 O26404 
1 =4gye 
4943 
gaa 
4s4s 
owe 
4947 
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113760 
013737 


49 


001224 
001224 


001234 


001126 


001126 
001234 
001126 


000010 
001234 


mo 
G)— 
£oO 


Se0 Ssee 8s 8s 
os et et od oe —c 
t= §+F= b= b+ f= fe tee 
wNAIN GFOorw rv 
fff £L£fL foo 


000010 
001234 


665: 


67$: 


68S: 


70S: 


R 
Bn RUSTE «SELECT PORT B 

NBR; MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RPOST TRO) SBDDAT :DRIVE STATUS FROM PORT B 
66S phe IF STATUS FROM PORT B ZERO 
STHPO 1S STATUS FROM PORT A ZERO ? 


1 ir a ERO VE IN NEUT RA AL 
STMPO,SBDDAT  ;CHECK STAT 


PORTA; PTNBR cH NGE PORT ADDRESS Fo FOR TYPEOUT 
S$GDDAT, S$BDDAT 560 ONPARE WITH CONST 
27 REPORT REGISTER ERROR 


PORTE’ PTNGR  ; MOV i sEGRT ADDR ADR CATION FOR TYPEOUT 
KERR’ eee “ERROR 


NDICATOR 
RPDS1(RO), SBDDAT’ rai CONTENTS OF 
#RPDS1,SBDADR ;FORM REGISTER ADDRESS. 3 ERROR MESSAGE 
RO, SBDADR "ADD _RH11 BASE ADDRESS 
$GDDAT *WHAT REGISTER SHOULD BE 
SBDDAT, STMPO MOVE REGISTER CONTENTS TO ’STMPO’ 
#tCATA, STMPO . SAVE SPEC IFIED BITS 
SGDDAT,$TMPO ° ;COMPARE THE BITS 
SBODAT,STMPH —_; COPY *BAD DATA’ 
#ATA, STMPY *CLEAR THE MASKED BITS 
STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
6 :TYPE MESSAGE 16 
CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,RPCS2(RO) ;SELECT PORT A 
PORTA, PTNBR s MOV VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKE: AR THE *CHECK ERROR’ INDICATOR 
RPDS1 (RO), SBDDAT’ GET CONTENTS OF RPDS1 
#RPDS1,SBDADR ;FORM REGISTER RopRESS OF ERROR MESSAGE 
RO SEDAGR 
#ATA. SGDDAT shady REGISTER SHOULD 5 

PO VE REGISTER CONTENTS TO ’STMPO’ 
atCATA, STMPO sive SPECIFIED BITS 
SGDDAT, STMPO ero BITS 


3 COPY 


SBDDAT, STMP4 


*BAD DATA’ 
#ATA, STMPY ;CLEAR THE MASKED BITS 
STMP4, SGDDAT j OR WITH GOOD DATA FOR TYPEOUT 
1 TYPE MESSAGE 16 
CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


55 HEHE AEH HEHE HEHEHE ETE REE HEHEHE RIE IEE RHEE EE SEE EEE EEE EE 
;RELEASE THE DRIVE FROM PORT A 


MOVB 
MOV 


PORTA,RPCS2(RO) ;SELECT PORT 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MO=-11-DZ2RJE-A, DUAL se ae LOGIC TEST - PART 1 MACY11 27(1006) 
DZRJEA.CMB =" O2-NOV-76 18:4 Tal 


000013 000000 


72$: 


738: 


74S: 


75S: 


76$: 
1$: 


alata Eg th pt it tt tt lr + RERLLARAKALRELLE 


jATEST 2 
| VERIFY THAT WRITING A DRIVE REGISTER SETS *PORT REQUEST’ WHEN THE 


;* 


:# A. 


TEST "PORT REQUEST’ 


MOV #13,RPCS1(RO) 


NO? 


e-NOV-76 





8:42 PAGE 91 


; ISSUE RELEASE THROUGH PORT A 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


MOV RPDS1t 

MOV TMP2, STMP 

BIC ATA! VV 

MOVB  PORTB, RPCS2(RO) 
MOV DS1URO) 

MOV MP3 

BIC BATAIVYV, STMPL 


CMP STMPO, STMP1 
BNE 725 
TST STMPO 
7ug 
ERROR 46 
IMP 76S 
MOV STMP2, SBDDAT 


738 
MOV PORTA, PTNB 


NOV $TMP2, SBODAT 
MOV PORTA, PTNBR 
CMP ScDoAT, STMP2 


? 
MOV STMP3, SBDDAT 
MOV PORTB; PTNBR 
ScDORT, STMP3 


ERROR 7 


RELERR 
MOV #RPDS1, SBDADR 
R OR DD THE 
MOV #MOL tPGM! DPR!DRY! VV scboa 
RO). $TMP2 GET ore PORTE STATUS REGISTER FROM PORT A. 
MPO IT INTO ’STMPO’ 
ate PORT DEPENDENT BITS FROM THE COPY 
THE DRIVE STATUS REGISTER FROM PORT B. 
T INTO *STMP1’ 


:Gbpy 
;CLEAR PORT DEPENDENT BITS FROM THE COPY 
1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NOT 
cle Not ARE THE SAME: ARE THEY ZERO ? 
T DRIVE NOT IN NEUTRAL OR NOT SEIZED 
:BYPAS THE REST OF THE CHE 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB § PORTB,RPCS2(RO) ;SELECT PORT 
STMPO BR” IF_STATUS EQ O FROM PORT A. 


} SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
; BAD tal re ERROR TYPE OUT 


PORT 
Bae fF STATUS EQ ZERO FROM PORT B. 
jSET "RELEASE ERROR’ INDICATOR 


STMP3, SBDDAT 
MOVB PORTA RPCSECRO) 


me 
#-1, RELERR 
MOV #11;RPCS1(RO) 
MOV #13) RPCS1(RO) 


;CLEAR_ THE "RELEASE ERROR ’ INDICATOR 
FORM THE A ADDRESS OF RPDS! FOR TYPEOUT 


1/0 BASE 


THE DRIVE 


RELEASE THE DRIVE 

YPE ERROR MESSAGE 26 
iL OOK FOR BIT FAILURES WHEN RPDS! READ 
if Tem al MBER 


IF Oe FROM PORT A. 
;CHECK RPDS1 aye BIT FAILURES - FROM PORT B. 
;CHANGE PORT N 
;SEE_IF READ OK FROM PORT B. 
;BR IF OK 
REPORT ERROR 


TEST PORT REQUEST FROM PORT ’B’ 


DRIVE IS SEIZED BY THE OTHER PORT. 


SEIZE THE ORIVE THROUGH PORT ’A’ BY WRITING O’S INTO RPDS1. 





ADDRESS 
;COMPARISON CONSTANT 





B08 
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DERTER.CMB  « ‘Ga-Nov-7& 18:45 T22 TEST PORT REQUEST FROM PORT ‘8° Soak 
SO0s :2 
5556 :# B. WRITE O'S INTO RPDS! FROM PORT °B’; VERIFY THAT THE ORIVE IS STILL 
eoae i SEIZED SY PORT 'A’. ' 
B03 :# C. ISSUE A RELEASE COMMAND FROM PORT °A’ AND VERIFY THAT THE DRIVE 
516 i+ SNITCHED TO PORT 'B’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
Bold :¢ PORT 'B’ AND IS NOT SET FOR PORT ’A’. 
50:3 *# D. ISSUE A RELEASE COMMAND THROUGH PORT 'B’ AND VERIFY THAT THE DRIVE 
Bid i* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
cos oe FREELSASLERALASHSSRAFASFSAESSSSSSASLSESSLARSSAAELFLSERAELE FLAS ISEE 
5017 026744 t$t22: 
S018 26744 095737 001274 T KYBCTL sPERFORMING ONLY SINGLE TESTS ” 
| 5019 926750 001406 2s ‘BR IF NOT 
| §0e0 O26752 100002 BPL :BR IF JUST ENTERED TEST 
5031 56764 600137 oo>eo2 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
| Soe2 026760 O61 i?7?77? O0le74 1S: MOV 8-1, KYBCTL *SET SINGLE TEST INDICATOR 
5023 026766 112737 O000e2 001102 25: MOVB #22 STSTNM TEST NUMBER 
S054 026774 012737 Oe7016 001106 MOV BTEST22,SLPADR ;LOAD LOOP ON TEST ADDRESS 
5525 O1e737 027016 001110 MOV 8TEST22.SLPERR LOAD LOOP ON ERROR ADDRESS 
poet 027010 012737 OO7E40 001176 MOV #4000. ,$TIMES $;D0 4000. ITERATIONS 
oug? 027016 Ol270& 001100 TEST22: MOV BSTACK, SP *LOAD THE STACK POINTER 
anes sCLEAR ATTENTION BITS FOR BOTH PORTS 
| 5031 o27022 113760 001224 000010 MOVB PORTA, RPCS2(RO) ;SELECT PORT 8A 
027030 600012 CLR 1tRO) >SEIZE THE DRIVE 
027034 012760 11 900000 MOV B11,RPCSI(RO) 31 DRIVE CLEAR 
| 5034 e704 012769 000013 MOV 813.RPCSI(RO) RELEASE THE DRIVE 
| §035 113760 OO0l226 000010 MOVB ORTB,RPCS2(RO) ;SELECT PORT #8 
| 5036 027056 005060 000012 CLR RPDS1{RO) SEIZE THe yPRIVE THROUGH PORT ’8” 
| §037 Oe7062 012760 005i! ooD000 MOV $11,RPCS1(RO) 3ISSUE DRIVE CLEAR 
| §038 027070 912765 800013 000000 MOV 813,RPCSI(RO) ; THE ORIVE 
ani 3s SESSSLEARESESLELSFAELAASEFAALELSLAERESASLKAARRKRAASRARLERAFASELERSS 
«*BBi sSEIZE THE DRIVE THROUGH PORT A 
| §044 02707 113760 001224 o00010 MOVB §PORTA,RPCS2(RO) ;SELECT PORT A 
| SONS 027104 013737 001224 001236 MOV PORTA SE 1ZPT iSTORE SEIZING PORT’S ADDRESS 
| SOW Oe7112 O0S060 O000I2 CLR RPDSIURO) sWRITE RPOS] 
| §047 G27116 013737 O01226 001240 MOV PORTB, OPPRT ;"OPPOSITE’ PORT ADDRESS 
' S048 027124 113760 O0le26 000010 MOVB PORTS, RPCS2(RO) -SELECT PORT B 
| 5049 027132 013737 O0lece 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
; 5051 ss SEPEHPEERSE LURES RRHEFLERSSLSRS ESSE ERARKARKRERESSSERLSEEAERARE EE 
| Be ;SET PORT REQUEST 
| eS 027140 cOscéO occoole CLR RPDS1(RO) ;SET PORT REQUEST FOR PORT B 
epee ‘ $2 SSEEEAESRILELLALSFRERLAH ERAT HELA AAKALLELLKHRASHHERRAAERSRAARARES 
057 ‘RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 
| €059 
£060 sRELEASE THE DRIVE FROM PORT A 
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DZRIEA.CMB  O2-NOV-76 19:49 T22 TEST PORT REQUEST FROM PORT ‘8’ 
5061 
Sob 027144 113760 c01224 990019 MOVB —- PORTA, RPCSE(RO) -SELECT PORT 
O271S2 613737 GOlee4y 001234 MOV PORTA;PTNBR ;MOVE PORT abpeese T0 LOCATION FOR TYPEOUT 
Boel 027160 Cle 900913 o00c00 MOV 813,RPCSI(RO)’ ;ISSUE RELEASE THROUGH POR 
S058 sVERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
5068 027166 005037 001250 CLR RELERR jCLEAR "RELEASE ERROR’ INDICATOR 
5063 G27172 012737 111700 001124 MOV #ATA' MOL! PGM!DPRIORY! VV, SGDDAT s COMPARISON CONSTANT 
5070 peoic8 012737 Aboaie O0lle2e2 MOV 8RPDS1 SBDADR ;REGISTER ADDRESS NT 
5071 027208 060037 O0lle2 ADD RO REGIST ER Base RODRESS FOR TYPEOUT 
c 02721 113760 O0ige6 900010 MOVB BOATB. RPCS2( RD) SELECT POR 8 
Bie 027220 1 lee6 001234 MOV PORTB, PTNBR = MOVE ADDRESS TO LOCATION FOR TYPEOUT 
5074 Ge7ece 016037 O000le onliés4 MOV 1tRO). STMPO sREAD STATUS REGISTER FROM PORT B 
5075 eres 113760 dolge 000010 MO PORTA, RPCEBCRD) -SELECT PORT A 
5076 1 001 001234 MOV PORTA PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
5077 027250 016037 O000l2 OOli26 MOV sitro  Sapbat - DRIVE STATUS FROM PORT 
5078 027256 001404 BEQ fee fe Freer FROM. PORT. A. ZERO 
5079 027260 005737 001164 TST TMPO *1S STATUS FROM PORT B ZERO ? 
5080 027264 OO1401 BEO 66S *BR IF ZERO 
5081 027266 ree ERROR 31 *REPORT DRIVE IN NEUTRAL 
SBE be7e70 01 001164 001126 66S: MOV STMPO,SBDDAT § ;CHECK STATUS FROM PORT B 
Ol 001226 001234 MOV PORTB. PTNBR CHANGE PORT ADRESS FOR TYPEQUT 
5094 027304 27 001124 001126 CMP SGODAT,SBDDAT  :COMPARE WITH CONSTAN 
5085 Oe7312 00140 BEQ 675 *BR IF OK 
5085 027314 Togs? ERROR *REPORT REGISTER ERROR 
5087 027316 O00c40 67S: NOP 
5088 027320 113760 OO01l224 000010 MOVB BORTA, RPCS2(RO) -SELECT PORT 
| S089 be? seb 001224 001234 MOV *PTNBR ;MOVE PORT AbORESS TO LOCATION FOR TYPEOUT 
5090 001244 CLR CLEAR "CHECK ERROR’ INDICATOR 
| §091 027340 016037 goodie 001126 MOV EM an, SBDDAT’ “GET CONTENTS OF RPDS 
| 5092 02734 012737 OO0Dle OOllee MOV BRPDS! SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
5093 erase pense 001122 ADD RO, SBOADR "ADD RH11 BASE ADDRESS 
| Be Brees? BoTtSe o01164 CR scboRT MAT Re] STER SONTENTE TO. *STHPO” 
| Bbee bees 001164 Be || SEATATSIRPD oftio"E BS feb aise 
' §097 027400 023737 001124 CO1164 CMP SGDDAT,S$TMPO ° ;COMPARE THE BITS 
| §098 001414 BEQ bes BR IF OK 
| §099 par 01 126 001174 MOV T,STMPY —-_ s COPY + BAO DATA’ 
| §100 Oe7416 1 001174 BIC BATA, STMPY *CLEAR THE MASKED BITS 
| 2103 GSruse Teaoi, COlt7# Oolies ae TYPE NESCARE Tee OR TYPEOUT 
| 2103 027434 eid 001244 a con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
5105 ane il 001226 o00010 MOVB al -SELECT PORT 
| §106 O2e7450 O01 001226 001234 MOV PORTB,PT nove PORT 1fooses TO LOCATION FOR TYPEQUT 
| 2107 teres ° 00 eae CLR "CHECK ERROR’ INDICATOR 
| 5108 0o74 O1e737 ate Lee Yt a rob ene Tes AODRES. £-OF ERROR MESSAGE 
HH lee ize Me cous By Se, cisten EOE ro sro 
cits Ge7ele Bi pot 4 BIC BICATA ‘Sttee sive Sete 0 BITS 
| att KY 001124 001164 chp SGDOAT, ‘ST OMPARE, THE BITS 
| S116 ee Sea 001126 001174 MOV T, STMP4 BR. "BAD DATA’ 
H 
{ 





| 
} 





ND=11-D2RIE-A, 
DERIEA.CNS O2-NOV-76 18:40 
S117 oe7s42 042737 100000 001174 
S118 Oeres0 Osara7 OO1174 O0lle4 
119 057556 104016 
129 Os7560 005137 O01244 
1g Ge764 OodeN0 
1 
5133 
5154 
5155 
5156 
ble? O27seb 113760 012% 090010 
€15 O57874 013737 O0lse6 901234 
Bie9 Ge7é0e Ole760 000013 d00000 
6131 
132 
5135 005037 001250 
e1x 012737 O000l2 001122 
135 060037 001122 
5136 012737 011700 901124 
e] 113760 S0lee4 Doo0i0 
5138 01 000012 001170 
5139 13737 01170 Ooi 
5140 042737 100100 001164 
| 514 113760 OO1ee% Oon0i9 
5142 1 Oo001e ob1i7e 
e145 013737 001172 OOl166 
uo es pee ANS Bue 
oti ate 001164 
| e14p iter 
| 5160 137 030120 
181 Of 001170 001126 
| e725 013737 OC122 O01234 
| 165 11376 Ole O000L0 
e13 001164 
1 001414 
S156 013737 001224 001234 
| 5157 bisa OOli7e OOlles 
| Ble bhereo Pole. 
| 2160 SEAS 277777 00 
| 81¢3 > Bt honatf 
| 8163 30034 012760 000013 00000 
| Btee ot 1170 001126 
Ae RS Ae gue 
ele 3737 OOlle4 Oli 
} 
| Biba pereen Soino> 
| €170 o13737 001172 001126 
| §171 Petes 13737 O0l226 001234 
| $172 930106 023737 0011e4 001172 
i 


708: 
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TEST PORT REQUEST FROM PORT °8’ 


;CLEAR THE MASKED BITS 

;°OR’ WITH GOOD DATA FOR TYPEOUT 

; TYPE + ys] 16 

;SET THE REGISTER COMPARE ERROR INDICATOR 


Bic 
BIS 


BATA, STMPY 
STMP4 , SGDDAT 


CKERR 


O2-NOV-76 18:42 PAGE 94 


5 FERRER RERRRE EERE AEEREEERERERE REE EE EER EE EE EEE E SE EERE EE ESE ELS EEE 
;RELEASE THE DRIVE FROM PORT B 
;SELECT PORT 8 


723: 


738: 


74S: 


75S: 


agqnagans 


Za 


EEE DEEERUEEEE| 


PORTB, RPCS2(RO) 
PORTB. PTNBR 
$13, RPCS1(RO) 


3M0 


VE PORT ADDRESS TO LOCATION FOR TYPEOUT 


; ISSUE RELEASE THROUGH PORT B 
THAT THE DRIVE IS IN NEUTRAL 


RELERR sCLEAR THE RELEASE ERROR ° INDICATOR 
#RPDS1.SBDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
RO, SBDADR {ADD THE 1/0 BASE ADDRESS 
ariOl: PGH? DPRE DRY! VV sco0ar ;COMPARISON CONSTANT 
PORTA. RPCS2(RO) ;SELECT PORTA. 
RPDSI(RO).STMP2 3GET THE DRIVE STATUS REGISTER FROM PORT A. 
STMP2, S :COPY IT INTO ’STMPO’ 
BATATVV.STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB,RPCS2(RO) ;SELECT PORT B. 
RPDS1(RO),S§TMP3 ;GET THe DRIVE STATUS REGISTER FROM PORT B. 
_ STMP3, STMP] “COPY IT INTO *STMP1’ 
BATA'VV,STMP1 :CLEAR PORT DEPENDENT T BITS FROM THE COPY 
$ThPO, StH! os THE ygyrTus REGISTER THE SAME FROM BOTH PORTS ? 
STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
7ug *BR IF NOT 
4B *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
76S : BYPASS REST OF THE CHECKS 
STMP2,SBODAT  ;SET UP IBLE BAD DATA FOR ERROR 
PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,RPCS2(RO) ;SELECT PORT B. 
SInPO nd TATUS EQ O FROM PORT A. 
PORTA, PTNBR "SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
TMP3,SBODAT ;*BAD DATA’ FOR ERROR TYPE OUT 
TA,RPCS2(RO) ;SELECT PORT A. 
STMP1 >SEE IF STATUS EQ ZERO FROM PORT B. 
74§ ;BR_IF_NOT 
8-1, SET ’ ASE ERROR’ INDICATOR 
S11;RPCSI(RO)  ;CLEAR IVE 
$13,RPCSI(RO) ;RULEASE DRIVE 
oop + HOOK FORBID FRICHRES WHEN RPDS READ 
: ’ 
sonra PT t RUANGE Bont NUMBER 
SGODAT,STMP2 ALL BITS OK ? 
i ieoden bana "OR" * 
TMP3, SBDDAT i CHECK REDS FOR BIT FAILURES - FROM PORT B. 
TB; PTNBR :C PORT NUMBER 
SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 








DZRJEA.CNB = Oe-NOV-76 18:49 TEST PORT REQUEST FROM PORT °8 
173 114 0014 : 768 ;BR IF OK 
ta ate Pago? FRROR 7? iBPpdar ERROR 
175 1 000240 768: NOP 
ee ococo4 1 


5176 $: SCOPE ;LOOP ? 


MO ts . ITERATIONS 
001100 TEST23: MOV #STACK? SP LOAD THE STACK POINTER 
;CLEAR ATTENTION BITS FOR BOTH PORTS 


5177 
B18 fp PRRAEERARAALARAS LALA LL ALLLALSLALELASLALLE LALA LALLA RA AARALALFRELLE 
1g j TEST 23 TEST NO 'PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT ’A’ 
218 :#VERIFY THAT READING THE CONTROL REGISTER (RPCS1) DOES NOT SET 'PORT 
2183 i REQUEST’. 
5185 *% A. SEIZE THE DRIVE T H PORT °B’ BY READING RPCS1. VERIFY THAT 
He iS HETEnIE RDMEGDN OE 
188 ; B. READ THE CONTROL REGISTER FROM PORT 'A’. VERIFY THAT ’DVA’ IS NOT 
5190 ta ; 
5191 ?# C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
132 3 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
S1s6 TTT TTT TTT TT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT ETT eT 
5195 030124 t$123: 
519 030124 005727 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
3197 930139 001405 BEQ 2s :BR 1 NOT 
198 132 1 BPL 1$ :BR IF JUST ENTERED TEST 
28 BG oe OE oem sy Poe | eT rer hoteme 

N30146 11 001102 25: MOVB STSTNN TEST 

Bib fie Ban BY PRE Rram iL (ie ot Te A, 

Seatad 012737 Bare48 BoLize V subd0. $time : 

030176 012706 

nesta 


SS si els 


= 


MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
RPOS1tRO) ;SEIZE THE DRIVE 


Soaps Coto 
i poc000 MOV ae 1(RO) ierhael Tie CLEAR 
1 MOV #1 1(RO) VE 
cent HOVE P te, CSE (RO) >SELECT PORT #8 
Sopot oo0000 MOV B11 RPCSL (RO) i PEdcE antyee 
069013 900000 MOV #13;RPCSI(RO) RELEASE THE 
5p RHRRELEA LEE ERELLAL ELL RELELAEEA ERLE REALL ELAR LEAL LARA RARE REESE 


;SEIZE THE ORIVE THROUGH PORT B 


£ 
—O0O 


ONMULL WT 


- 
a 
+ 
a! 
tal 
- 


saeace 


RRR 
ee 


: 
: 
S 
i 


001236 HOV” PORTB'SEIZPT ; STORE SEIZING PORT*S ADDRESS 
ge BR Slascm, Saae lr 

001234 MOV PORTA, PT ; MOVE BRS aborese TO LOCATION FOR TYPEOUT 
001240 MOV POR : OPPOSITE’ PORT ADDRESS 

001126 MOV RPDS1(RO),SBODAT’ ;SEE IF DRIVE SEIZED BY PORT B 


coe 
ae 
x 
eh 


oo0or- 


- 
a 
~ 
Aa 
iv 
= 
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O2-NOV-76 18:49 T23 TEST NO "PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT ‘A’ 
010037 O11 22 MOV RO, SBDADR SE ADDRESS 
37 001122 ADD #RPDS1, SBDADR RATE BAD REGISTER ROCRESS 
att CLR $DDAT e Aa SHOUL E ZERO 
1124 001126 EMP GDDAT , SBDDAT iI The Regist 
252 0014 BEQ 64S 

1oN004 ERROR 4 Ee eT te sERROR 
: 137 031132 il IMP $ :BYPASS REST OF THE SUBTEST 
rex: $ 
0303be 13760 001226 900010 MOVB  PORTB, RPCS2(RD) SELECT PORT B 
030370 013737 OOleee 001234 MOV PORTB: PTNBR {HOVE POR T BODRESS TO LOCATION FOR TYPEOUT 
030376 16037 bo0912 001126 MOV RPpertROD Ss Lilt F SEIZING PORT SEES CORRECT STATUS 

Bara? Dhtied potiee NOV ie Sec SeRtDRY Orvis Stobar™ EXPECTED — 
Gated 1 potter COM sire UP , T EXPECTED STATUS 

01 001126 001164 MOV SAVE THE ACTUAL STATUS 
S302 043737 OO1166 001164 BIC Hoy YS ae >CLEAR UNWANTED BITS 

023737 001124 O01164 CMP SGDDAT,STMPO § :ARE THE EXPECTED STATUS BITS SET ? 
S206 1401 BEQ :BR IF THEY ARE 
030452 bodes S$ ROP . SREPORT THE ERROR 

030454 113760 001224 000010 MOVB PORTA,RPCS2(RO) ;SELECT PORT 

030462 013727 O01224 001234 MOV PORTA,PTNBR ;MOVE PORT abpRese TO LOCATION FOR TYPEOUT 


+s FRTERELE REEFS EER eELERER KALE TE SAERERE SES ERRERERE KSEE LAER SERGE SEE 
READ RPCS1 THROUGH PORT A - TRY TO SET PORT REQUEST 


LAL LT TT CIES 8 





030470 gos037 001244 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
fe 1s wire Botts HOV RRpee] gabeon T age M COOTER BopRece OF ERROR MESSAGE 
neeats ae 0011 RO 31, SBOROR 000 11 BASE 
eee o13737 Botte 001164 So Reet eren GonreNTs To *STMPO’ 
| Bates pi Mousse Bat iey STS Lata iS eel IED St 
023737 001124 001164 CMP SGDDAT, $TMPD ie BITS 
| fee nee 0011 1174 Eby ges T, STMP4 Be DATA’ 
sae BIC Soo? STnpa ? CLEAR it MASKED BITS 
030560 03373 001174 001124 BIS STHP4, SGDDAT 37 OR? reno gittt GOOD DATA FOR TYPEOUT 
heeaa 005137 001244 COM CKERR A ME TE cicten COMPARE ERROR INDICATOR 
020574 00240 665: NOP 
: OIVE SHOULD RETURN TO NEUTRON 
“DRIVE SHOULD RETURN TO NEUTRAL 
| sRELEASE THE DRIVE FROM PORT B 
13760 001226 000010 MOVB § PORTB, RPCS2(RO) T PORT B 
$3737 OOleee 001234 MOV PORTB; PTNBR Move bet ADDRESS TO LOCATION FOR TYPEOUT 
030612 012760 000013 000000 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT [ 
sVERIFY THAT THE DRIVE IS IN NEUTRAL 
930629 005037 901260 CLR —-RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
| 030624 01 000012 001122 MOV #RPDS1,SBDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
| 





boaidactae state ae yprort _ “oe ; Tle by AAs? RCT THROUGH PORT ’A’ 


Sci viciciee Rena vant tt 


aida 
WONWUIE Wr 


SAAS RS NSIS Nats 


i 
& 


£339 
$340 


: 


88 

Ce el ore 

i ba 
NoOLLooe 


888s 
=> babe 
rine 
o 


ee 


Ce a $—* fe b= be pe 


oO 
-_ 
<£ 


: | 


- = 
30 
-\ = 
Bs bo 
we 


SSRBRTRERE 
S88 888 

ae 

Sh 


aN 
S88 g88 


AT RIntAlalaiatatatatatatatat ated atatatatay 
mee 


WH 8 boo Bt 2 eb Fa Bs ps pe hc hh gh ee 


= 2 02 bas ban Fas Bae Fee 
BSERPSSRS 


NOV BHO GneDpRy DRY! WY $a0 WY, SauOet EORPARSON CONSTANT 


HOV R it) 23! MPe ; Oh fis STATUS REGISTER FROM PORT A. 


BIC BATA! VV, STMPO NOENT BITS FROM THE COPY 
MOVE § PORTB,RPCS2(RO) : cereer POBRT 


MOV RPDSi(RO) STMP3S :GET THE DRIVE STATUS REGISTER FROM PORT B. 
MOV TMP3, STMP sCOPY it oat *STMP1’ 
BIC #ATA'VV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
cH SHPO, STP i1s THE “STATUS REGISTER THe SOME FROM BOTH PORTS ? 
ist STHPO sReCH TERS ARE THE SAME: ARE THEY ZERO ? 
ERROR 46. *REPORT DRI NOT IN NEUTRAL OR NOT SEIZED 
IMP 7 :BYPASS ST OF T CHECKS 
68S: MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTS, PTNBR > SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


MOVB § PORTB,RPCS2(RO) SELECT 


ISI 5 THPO" SEE IF S18 cor "EQ O FROM PORT A. 
MOV PORTA, PTNBR 1 ee: FORT FTES! DRIVE NOT IN NEUTRAL 
MOV STMP3,SBDDAT  ;*BAD DATA’ BR TPE OUT 
MOVB PORTA; RPCS2(RO) :SELECT PORT. 
TST STP SEE IF CORTUS’ EQ ZERO FROM PORT 8. 
BNE BR IF NOT 
69S: MOV #-1,RELERR “SET ’RELEASE ERROR’ INDICATOR 
MOV #11;RPCSI(RO)  $CLEAR THE DRIVE 
HOV 813, RPCS1 (RO) *RELEASE THE DRIVE 
708: ES ve STMP2,SBDDAT — ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
MOV PORTA’ PTNBR : 
CMP SGDDAT, STMP2 sl BITS 
BEG 71$ 


? 

71$: MOV STMP3, SBDDAT sRePOR RPOS1 FOR BIT FAILURES - FROM PORT B. 
PORTB.PTNBR * CHANGE NUMBER 

SGDOAT, STFS SEE IF READ OK FROM PORT B. 

ERROR 7 *REPORT ERROR 

SCOPE LOOP ? 


HUHEHH HEHEHE HEHE HHEHHHHHHHHHEBHHHHEHHA HEHEHE HEEEH EH HHHEEE EE 
jATEST 24 TEST NO ’PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT °B’ 


H VERIFY, THAT READING THE CONTROL REGISTER (RPCS1) DOES NOT SET *PORT 


728: 
18: 


A. SEIZE THE ORIVE THROUGH PORT 'A’ BY READING RPCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. REnO THE CONTROL REGISTER FROM PORT 'B’. VERIFY THAT *DVA’ IS NOT 


oe eee 8 88 





C. ISSUE A RELEASE COMMAND THROUGH PORT 'A’. VERIFY THAT THE DRIVE 








MD-11-D2RJE-A, 
CNS 
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8:49 Te4 TEST NO ’PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT ’8’ 


a0 8 
a 
soy 5 


—s 


SE 


el ee ee ee ae et 


BENTH SSSee 


oo000-OoO 


sede 


ae ee ee ee 
— 
i 


~ 
-_ 
8 
i 


eee 
8 
Se 


[=] =} 
~—— 
aad 
B33 
~ 
- 
oe 
Wey 


o- 
= 


pm be ps ha be 


pe 


a 


8 
§ 


-_ 
Oo 


2090 
ade 
FRE 


S=S8 
S888 


— 


pe bP bs a re 
fee bs fee ae baer pe 


coo 
oe ote oa os 


8 
— 
= 
Oo 


RePRR GPT iti MANERPRAMSU ce saia ca wii cucee eee" 


- =) = - = -\= 
AiR Ai At At atatatatatataiatatata Bites 
ee SR 


ERESPENSREANE CR TORR ON ot oe 


: 


t$T24 
TST 
BEQ *BR IF NOT 
SPL 1$ ;BR 
IMP EXEC *RE 

1$: MOV 8-1, KYBCTL :SE 

2s: MOVE 824’ STSTNN : TEST NUMBER 
MOV #TESTe4Y,SLPADR LOAD LOOP 
MOV #TESTOY.SLPERR ;LOAD LOOP 
MOV #4000. ,$TIMES ; 

TEST24: MOV aSTACK, SP : 


i RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
AKFRERLELELRAALEAARLLLAEKALALAAASRESRERAEEAERREREA ERA FLELSL ELSE 
. KyBCTL sPERFORMING ONLY SINGLE TESTS ? 


IF JUST ENTERED TEST 
TURN & GET NEXT TEST NUMBER 
T_ SINGLE TEST INDICATOR 


ON TEST ADDRESS 
ON ERROR ADDRESS 
“00 4000. ITERATIONS 

LOAD THE STACK POINTER 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
PORTA, RPCS2(RO) set Ger PORT #A 


MOVB 
CLR RPDS1 (RO) 


THE DRIVE 


MOV. STATRECET CRO) TREC ERGE IKE Serce 
MOVB Pbate : 


#8 
“E THROUGH PORT °B’ 


RPCS2(RO) :SELECT POR 
Ge USL) 8, ELE RG ORE! 
MOV #13, RPCS1(RO) RET EaiSe THE DRIVE 


5p RHRERERLELELELE REL ELELRELE RE ERELLEAARRALA RELA RARE LA ALLA AAA LAKES 


;SEIZE THE DRIVE THROUGH PORT A 


PORTA, RPCS2(RO) ;SELECT 
PORTA 


MOV 
TST Si tRO) *READ RHCS1 


PORT A 
SEIZPT ;STORE SEIZING PORT’S ADDRESS 


RPC 
MOVE PORTS, RPCS2(RO) "SELECT PORT B 
;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV PORTB 
MOV TB T .? TE’ PORT 
MOV tho) sepoaT® Ore tr DRIVE SET OED By PORT A 
MOV RO, SBDADR sRH11 BASE ADDRESS 
ROD #RPDS1,SBDADR  ;GENERATE BAD REGISTER ADDRESS 
c SGDDAT *REGISTER SHOULD BE ZERO 
CMP SGDOAT, SBDDAT i1S THE REGISTER ZERO 
BEQ 64 *BR IF IT IS 
4 REPORT THE ERROR 


1s ;BYPASS REST OF THE SUBTEST 
PORTA,RPCS2(RO) ;SELECT PORT A 


64S: 


LOCATION FOR TYPEOUT 
PORT SEES CORRECT STATUS 


RPOSI{RO), SBODAT ;SEE IF SEIZING 


IMP 
MOVE 
HOV PORTA.PTNBR ;MOVE PORT ADDRESS TO 
MOV 


#MOL!PGM? DPR! DRY! VV, SGDDAT 
MOV SGDDAT, STHPL USE G00D DATA 


EXPECTED STATUS 
AS A MASK 

3¢ T THE EXPECTED STATUS 
;SAVE THE ACTUAL STATUS 


COM 1 
MOV SBDDAT, STMPO 

IC STMP] sTnPQ ‘CLEAR UNWANTED BITS 
MP SGDDAT, $T 

BEQ BR IF THEY 





SARE THE EXPECTE STATUS BITS SET ? 
*REPORT THE ERROR 














MD-11 “A, CONTRLR LOGIC TEST -_ PART 1 MACY11 27(1006) O2-NOV-76 18:42 PAGE 99 
bonea cn. *OBUNOVE? er4o Te4 TEST NO ’PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT °B’ 





1 S$: NUP 
2326 Be ides 13560 O01226 000010 MOVB PORTB,RPCS2(RO) ;SELECT 













PORT B 
299 031472 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
51 . © SHERERREAEA HAASE REAA LE RRL LA SA ELLE LA RLAARALAAEREEAHALAKAFAETEKRKEE 
:READ RPCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 







;RELEASE THE DRIVE FROM PORT A 


5403 
1 CLR CKERR sCLEAR THE ’ CHECK ERROR’ INDICATOR 
50s Leos blebs op0b00 potiss NOY appre) $a a sige a Be oF ERROR MESSAGE 
Be pies oe ne By aPausee se BER 
5 i 1 ii 1164 chy ; saa T ene STMPO 
au + , 
na fie fry Bug gus OE ree, Ue Se 
11 031544 1124 001164 CMP 
Sui2 031552 001414 BEQ if 
S413 031554 013737 001126 001174 MOV bes r. STMPY iad + BAD DATA’ 
5414 031562 042737 004077 OOD1174 BIC #4077, STMPY ;CLEAR THE MASKED BITS 
S4iS 031570 053737 901174 001124 BIS STMP4,SGDDAT  :'OR’ WITH GOOD DATA FOR TYPEOUT 
S416 031576 104010 ERROR 10 ?REPORT THE E 
5417 031600 005137 o01244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
Sig 031604 o00240 665: NOP 
5420 $ pEARAOEAAAMEE REE EaEsea na naTKMETRTEME EMA AEEREAETETENEED 
S41 *PRIVE SHOULD RETURN TO NEUTRAL. 
5ue2 
5423 
S424 
5425 








S426 031606 113760 001224 o00010 MOVB PORTA,RPCS2(RO) ;SELECT PORT 
S427 031614 013737 O0l2c4 001234 MOV PORTA-PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
pie 031622 012760 000013 000000 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PRT 
e430 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
1 005037 001250 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 

2435 neste 012737 eee 001122 MOV aRPDSL SBDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
£434 031642 060037 OOlle2e ADD 800 THE I/0 BASE ADDRESS 
BH O31646 012737 011700 001124 MOV BROLT PGA DPR! DRY! Iyy T _;COMPARISON CONSTANT 

36 031654 113760 001224 000010 MOVE PORTA, RPCS2(RO) ;SELECT PORT’A. 
5437 031662 016037 000012 001170 pepsi (RO) STMP2 GET fHE DRIVE STATUS REGISTER FRCM PORT A. 

38 031670 013737 901170 001164 MOV Sino OPY IT INTO °STMPO’ 

39 031676 100100 001164 BIC aay STMPO CLEAR PORT DE T BITS FROM THE COPY 
S440 031704 113760 O0l226 000010 MOVE  PORTB Rbese RO) >SELECT PORT 
Ean 31718 016037 Je 001172 MOV RPDS1(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
eas Guise Gierer Tatios Getter © BEE ntaflUtte, feta'Pot! Senter errs rao ie covy 

aK 

eat pat7se 35955 boii 4 BOT Tee CMP STMPO, stip its THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
Suus 03174 001006 68S *BR IF NOT 
S446 031744 005737 OO1164 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 

447 031769 001 BNE 70$ ;BR IF NOT 
eudg 1 i ERROR 46 ;REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
£449 031754 000137 032140 IMP ? THE REST OF THE CHECKS 
S450 031760 013737 O01170 001126 683: MOV STMP2, SBODAT ISET UP POSSTBLE BAD DATA FOR ERROR MESSAGE 
E451 031766 013737 O0le26 001234 MOV PORTB, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
c4S2 031774 113760 O0l226 OO00I0 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 
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DZRJEA.CMB "O2-NOV-76 18:40 Te4 TEST NO ’PORT REQUEST’ WHEN READ RPCS1 THROUGH PORT °B’ 





pe00e pos? 37 001164 I 3 STNPO iSEE Pi STATUS EQ O FROM PORT A. 
10 0137 12 12 MOV PORTA, PT I FT WS DRIVE NOT IN NEUTRAL 
suse Gaele 613333 cat 3 Bot MOV. -STNIPS’ SEOBR ir ne PRT on ERRBR PE oh 
1224 000010 MOVB PORTA, BPrss (RO) ‘SELECT PORT 
S458 032032 001166 TST STMP1* SEE IF ereTuS EQ ZERO FROM PORT B. 
5459 03203 90101 SNE 70 BR IF NOT 
5460 Ole? 77777 901250 69S: HOV et, 1 RELERR i SET ApRELEASE ERROR’ INDICATOR 
Byes heen ptezee cee) and MOV #13, RPCS1(RO) HRELERSE THE DRIVE 
5463 O32062 104026 ERROR TYPE ERROR MESSAGE 26 
C464 032064 013737 001170 001128 70$: § MOV STMP2, SBDDAT sLOOK F FOR Re T FAILURES WHEN RPDS1 READ 
5465 O3207e 13737 001224 O01234 MOV PORTA, PTNBR ’ CHANGE 
5465 100 023737 O01ie4 001170 CMP aan SALL GF SO OK ? 
S467 032106 001401 BEQ *BR IF OK FROM PORT A. 
5468 032110 104007 ERROR :REPORT 
S469 O32ll2 013737 001172 001126 71$: MOV STMP3, SBDDAT  3CHECK REDSI FOR BIT FAILURES - FROM PORT 8. 
5470 0321 13737 001226 001234 MOV PORTB’ PTNGR CHANGE POR R 
5y71] 126 Oe 001124 001172 CMP SGODAT,STMP3 SEE IF READ OK FROM PORT 8B. 
5472 032134 001401 BEO 725 BR IF OK 
5473 036136 04007 ERROR 7 REPORT ERROR 
5474 140 hposda 725: NOP 
5475 O3el4e 15: SCOPE LOOP ? 
ae 
5478 ; blest oe tect RELEASE BY PORT TA’ UREN GeLZED BY PORT ae 
473 sATEST TEST RELEASE BY PORT ’A’ WHEN SEIZED BY PORT ’B’ 
Sue] ; EVERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
pibe i IS SEIZED BY THE OTHER PORT. 
eve i A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDS1. 
e486 i B. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. 
S88 ii C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ’B’. 
£499 *# D. RELEASE THE DRIVE THROUGH PORT 8’. VERIFY THAT THE DRIVE SWITCHED 
me 3 TO PORT ’A’. 
5493 *% £. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE RETURNED 
5494 ii TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
5s 032144 FFL iiieiiieieiehehiieieieieeieiheibeeeeaebieleienaniieeieeebia 
. §498 032144 37 001274 a aa KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
| §469 032150 001406 BEQ sé "BR IF NOT 
| £500 032152 10000¢ BPL 1$ ;BR IF JUST ENTERED TEST 
5501 032154 000137 o02602 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
5 032160 612737 177777 001274 1S: MOV #-1, KYBCTL SET SINGLE TEST INDICATOR 
032166 112737 000025 O01i02 2%: MOVB #25; STSTNM TEST NUMBER 
| §504 030174 Ote737 032216 001106 MOV #TEST25, SLPADR LOAD LOOP 0 ON TEST ADDRESS 
650S O32e02 ie737 922216 OO11i0 MOV #TESTES, SLPERR ;LORD LOOP ON ERROR ADDRESS 
| E506 032210 012737 OO7E40 001176 Mov #4000. ,$TIMES ;; ITERATIONS 
2507 032216 012706 001100 TEST2S: MOV asTAck’ Sp +fORO THE STACK POINTER 
| 
Rx 


& 


igvuraababararatatrs 
SONNE RURHOS 


Hn AAALAC 


5551 


38 
ei : 


888882 
PERRYS 
88 sss 


Oo 
oa 


001224 
O012ee4 
000013 


000010 
000009 
000000 
000019 


000000 
000000 


8 


Kee eee 
ed and nt ond aed aed A) 
Ste SLRs 


001126 
001122 


K 
“ baERIE-A, ne m Lost TEST ~ ber" 1 mpcy td 271005) poe 


MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
CLR RPOSitRO) >SEIZE THE 
MOV #11,RPCSI(RO)  ;ISSUE DRIVE CLEAR 
MOV #13-RPCSI(RO) RELEASE THE DRIVE 
MOVB § PORTB.RPCS2(RO) :SELECT PORT #8 
CLR RPDS1tRO) *SEIZE THE DRIVE THROUGH PORT ’B’ 
MOV #11,RPCSI(RO)  ;ISSUE DRIVE CLEAR 
MOV #13,RPCSI(RO) RELEASE THE DRIVE 
s3 REEKKARALRLA LALLA LAA LA RL EK LARA REEL ALARA EE EKA SE RAKES KEE AEFKEE 
;SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
MOV SEIZPT ;STORE SEIZING PORT’S ADDRESS 
CLR RPDS1tRO) ;WRIT 1 
MOVB PORTA,RPCS2(RO) ":SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ESS TO LOCATION FOR TYPEOUT 
MOV PORTA’ OPPRT ; OPPOSITE’ PORT ADDRESS 
MOV RPDS1(RO),S$BDDAT’ ;SEE IF DRIVE SEIZED BY PORT B 
MOV R sRH11 BASE ADDRESS 
ADD #RPDS1,$BDADR  :GENERATE BAD REGISTER ADDRESS 
CLR SGDDAT :REGISTER SHOULD El ZERO 
€MP SGDDAT,SBDDAT 31S THE REGISTER ZER 
BEQ 64S : IT IS 
ERROR 4 "REPORT THE ERROR 
al IMP 1$ *BYPASS REST OF THE SUBTEST 
MOVB § PORTB,RPCS2(RO) ;SELECT PORT B 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RPDS1(RO), SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
MOV #MOL'PGM'OPRIDRY!VV°SGODAT ;EXPECTED STATUS 
MOV SGDDAT,STMP1 ;USE G00D DATA’AS A MASK 
COM STMPI ; COMPLEMENT THE EXPECTED STATUS 
MOV SBDDAT,STMPO § 3SAVE THE ACTUAL STATUS 
BIC STMP1, $TMPO *CLEAR UNWANTED BITS 
CMP SGDDAT,STMPO § ARE THE EXPECTED STATUS BITS SET ? 
BEQ $ BR IF THEY AR 
ERROR 5 *REPORT THE ERROR 
65S: NOP 
2 ERERKRAA REA ALKA AERA KALA ELAR A LARA REA A RAARAES RELA ARERR LARA REAARERE 
: TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 
MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
MOV PORTA-PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RPCS1(RO)’ ;ISSUE A RELEASE COMMAND THROUGH PORT A 
$3 KHREL HLH SE CREP RS HSE LAKE ER SRE KE KER ESE RES MERKLE K ER KAMER RE MAKES ERHEE 
‘VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 
CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
MOV RPDS1(RO),SBDDAT’ ;GET CONTENTS OF RPDS1 
MOV #RPDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


08 


“NOV-76 18:42 PAGE o 
TEST RELEA T ’A’ WHEN SEIZED BY PORT °B’ 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
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& 
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BSEBS88-8 
SED aESs 
Oo 
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000012 
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TEST RELEASE BY PORT ’A’ WHEN SEIZED BY PORT ’B’ 


RO, SBDADR ADD RHI11 BASE ADDRESS 
SGDDAT “WHAT REG STER SHOULD BE 
$GQ0AT, SBDDAT ids THE REG ISTE 

1 REPORT THE ERROR 
CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
RPCSI(RO),SBDDAT’ :GET THE CONTENTS OF RHCS 

aRPCS1 $BDADR ;FORM ADDRESS OF REGISTER 

$BD: DADR ADDRESS B 

i $BDDAT iT3 tiCre SET ? 

ll ‘REPORT THE ERROR 
8TRE,RPCSI(RO) :CLEAR ’MCPE’ 


CKERR ;WAS RPDS! NON ZERO ? 
.+6 :CONTENTS OF RPDS1 SEEN BY PORT A 
1$ ;DRIVE IN NEUTRAL, BYPASS REST OF TEST 


5p RARER ERE E EERE EK EE ELE E EERE ERE E EERE EERE REAR EE EEE EEE 
;RELEASE THE DRIVE FROM PORT B 


68S: 


69S: 





PORTB,RPCS2(RO)  ;SELECT PORT 8 
PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13, ReCS1 TRO)’ s ISSUE RELEASE THROUGH PORT B 


THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


RELERR jCLEAR "RELEASE ERROR’ INDICATOR 
#ATA!MOL !PGM! DPR! DRY! VV, $GDD ; COMPARISON CONSTANT 
#RPDS1, SBDADR REGISTER, ADDRESS’ INC 
RO, SBDADR sREGISTER BASE ADDRESS FOR TYPEOUT 
PORTAL RPCS2(RO) SELECT 


PORT A 
Hove FoR T ADDRESS TO LOCATION FOR TYPEOUT 
RrOsi RO) § stig READ. STATUS GISTER FROM PORT A 


PcSe(RO 

PORT ADDRESS TO LOCATION FOR TYPEOUT 
Ponte FING sang - DRIVE STATUS FROM PORT B 

a sBR IF STATUS FROM FORT B ZERO 

STMPO *1S STATUS FROM PORT A ZERO ? 

68S iBR IF ZERO 

31 *REPORT DRIVE IN NEUTRAL 

STMPO,SBODAT § ;CHECK STATUS FROM PORT A 

PORTA; PTNBR >CHANGE PORT AQDRESS FOR TYPEOQUT 

SGDOAT, SBDDAT fa WITH CONSTAN 


REPORT REGISTER ERROR 


;RELEASE THE DRIVE FROM PORT A 


MOVB 
MOV 
MOV 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


PORTA,RPCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 


es 


etsetsiseisiteta 
VERSRNGSORBTe 


es 
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TEST RELEASE BY PORT ’A’ WHEN SEIZED BY PORT 'B’ 


BDADR * AD) 
#MOL!PGM! DPR! DRY! VV scb0A ;COMPARISON CONSTANT 
RPCS2(RO iat POR 


PORTB, RPCS2(RO) 
STMPO 


TMP3, SBDDAT 
PORTA, RPCS2(RO) 
STMP1 


Ta es ga eas 
TEST RELEASE BY PORT ’B’ WHEN SEIZED BY PORT ’A’ 


venir THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


A. -SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O'S INTO RPDSL. 
ISSUE A RELEASE COMMAND THROUGH PORT ’B’. 


oie 3k ie ae 3 












;CLEAR_THE "RELEASE ERROR ’ INDICATOR 
sFORM THE ADDRESS OF RPDS! FOR TYPEOUT 
70 BASE ADDRESS 






T THE DRIVE STATUS REGISTER FROM PORT A. 
NTO *STMPO’ 


iCbpy IT INTO 'STM 
CLEAR PORT DEPENDENT BITS FROM THE COPY 

315 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
#REGLSTERS ARE THE SAME: ARE THEY ZERO ? 

REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
BYPASS THE REST OF THE CHECKS 

:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
sSEL LECT PORT B. 

;SEE_IF_STATUS EQ O FROM PORT A. 

BR IF ZERO 


; SEIZING peal IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;’BAD DATA’ FOR ERROR TYPE OUT 
SELECT PORT A 


R 
; SEE IF STATUS. EQ ZERO FROM PORT B. 
SET *RELEASE ERROR’ INDICATOR 























37 SSAGE 26 

;LOOK FOR BIT FAILURES WHEN RPDS1 READ 

: GE PORT NUMBER 

rhb BITS OK ? 

Rep tt ox FROM PORT A. 

5 CHECK RPDS! are BIT FAILURES - FROM PORT B. 
;CHANGE PORT NUMBER 

; SEE IF READ OK FROM PORT B. 


; REPORT ERROR 
;LOOP ? 
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DZRJEA.CHB = “O2-NOV-76 18:49 Te” TEST RELEASE BY PORT "8" HEN SEIZED BY PORT A) 
5677 ;# C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A. 
5679 ;# D. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE SWITCHED 
S680 33 TO PORT 'B’. 
568 ;# E. RELEASE THE DRIVE THROUGH PORT '8’. VERIFY THAT THE DRIVE RETURNED 
5583 ii TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
S68s PEt itt iit ttititittitittirititiiiitttttiittit iets 
S686 033352 tST26: 
5687 033352 005737 001274 TST —-KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
£688 033356 0014 BEQ aS ;BR I 
5689 033360 100002 BPL IS ;BR IF JUST ENTERED TEST 
5690 033362 000137 002602 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
5691 033366 Ole73? 177777 001274 18: MOV #1, KYBCTL ;SET SINGLE TEST INDICATOR 
S692 033374 110737 00002 001102 2$: MOVB 826, STSTNM ;TEST NUMBER 
S699 033402 010737 033424 001106 MOV  8TEST26,SLPADR ;LOAD LOOP ON TEST ADDRESS 
5699 033410 016737 033424 001110 MOV #TEST@B,SLPERR LOAD LOOP ON ERROR ADDRESS 
S695 033416 012737 007640 001176 MOV #4000. ,STIMES 500 4000. ITERATIONS 
S636 O3s4e4 Ole706 001100 TEST26: MOV —-#STACK, SP ;LOAD THE STACK POINTER 
2538 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
5700 033430 113760 001224 200010 MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
| 5701 033436 005060 O00012 CLR = RPDS1 RO) ;SEIZE THE DRIVE 3 
| 5702 033442 012760 00001] 000000 HOY LL, RPCS{ (RO) ;ISSUE DRIVE CLEAR: 
5703 033450 012760 000013 000000 MOV #13, RPCS1(RO) ; RELEASE THE DRIVE 
5704 033456 113760 001226 000010 NOVB  PORTB.RPCS2(RO) :SELECT PORT 4B 
5705 033464 005060 Oo000!2 CLR —-RPDS1{RO) ;SEIZE THE DRIVE THROUGH PORT *B" 
5706 033470 012760 000011 oo0000 MOV  #11,RPCS1(RO) ISSUE DRIVE CLEAR 
e707 033476 Ole760 000013 OC0000 MOV - #13,RPCSI(RO) RELEASE THE ORIVE 
| 270 fj RRRRRARRR REAR R REEL EERE EERE REL EERE RE EERE RE RE EEE EERE EERE REE 
| Bei ;SEIZE THE DRIVE THROUGH PORT A 
| 5713 113760 001224 000010 MOVE  PORTA,RPCS2(RO)_;SELECT PORT A 
6714 033512 013737 O01ee4 001236 MOV  PORTA,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
5715 o000i2 CLR —- RPDS1ERO) WRITE RPOS1 
6716 033524 113760 001226 00010 MOVB  PORTB,RPCS2(RO) ";SELECT PORT B 
| Bete Osse3e lara? OOlce® Ooless V —_- PORTB, ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
$718 033540 013737 O012e6 001240 MOV  PORTB.OPPRT ' —; OPPOSITE’ POR 
| 5719 033546 016037 000012 001126 MOV RPOSI{RO),SBDDAT’ ;SEE IF ORIVE SEIZED BY PORT A 
| 5720 033554 010037 OOll1ee Mov = RO sRALI BASE ADD 
5721 062737 OO0001e 001122 ADD #RPDS1,SBDADR ;GENERATE BAD REGISTER ADDRESS 
| 57e2 00037 001124 CLR S$GODAT’ SREGISTER SHOULD BE ZERO 
| Bosq faeere Berra? OOllcd O12 CHP  SGDDAT,SBDDAT 1S THE REGISTER ZERO 
5724 033600 001403 BEQ «NS BR IF IT 1S 
| 5725 033602 104004 ERROR 4 ;REPORT THE ERROR 
5726 033604 000137. 034556 Imps AS ;BYPASS REST OF THE SUBTEST 
8767 033610 64S: 
| £728 O33610 113760. Oo12e4 go0010 MOVE PORTA, RPCSB( RO) ,SELECT POR 
| 57269 033616 013737 O01ee4 001234 MOV —- PORTA, PTNBR ADDRESS TO LOCATION FOR TYPEQUT 
5730 16037 000012 001126 MOV Osi{R0), Se00at;SEE. TF SEIZING PORT SEES CORRECT STATUS 
_ 5731 032632 012737 011700 O011e4 MOV OL!PGM! DPR! DRY! VV, $GDDAT 
| oF 013737 001124 001166 HOV SGODATSSTRPI USE GOGD OATA'AS A 
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CSaR3€a.CmB “o8-NGv-75 18:45 T26 «Ss TEST RELEASE BY PORT *B’ WHEN SEIZED BY PORT ‘A 
S733 023646 2 OO1166 CUM = STMPY sCOMPLENENT THE EXPECTED STATUS 
es ee D116 ogres MOV  SBDDAT, $THFO ERE ACTURL STF 
5- 737 OO1l66 001164 Bic ©. $ TMP 1 $THPO CLEAR UNWANTED BITS. ~ 
7 3737 O0lle4 Sd1l64 SGOORT,STMPO ARE THE EXPECTED STATUS BITS SET ” 
74 901401 BEQ gS fBR IF THEY ARE 
03367 104005 ERROR 5 {REPORT THE ERROR 
633700 500240 658: NOP 


sSFSESFLFLELFSSFLSESSESSLSLEFSALEAFSLESHRESESFAE LAE FASELELSAAASLSES 
tay TO EXECUTE A RELEASE COMMAND THROUGH PORT 8 


3 11370 001226 900010 MOVE  PORTB,RPCS2(RO) ;SELECT PORT 8 
715 013737 001226 031234 MOV, PORTB'PTNER. HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
033716 012769 003013 900000 MOV -#13,RPCSI(RO)’ ;ISSUE A RELEASE COMMAND THROUGH PORT 6 


bERIFY THAT THE DRIVE Ie STILL CELZED BY PORT A ee 
ERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 


033724 005037 001244 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR e 
033730 016037 O00012 001126 MOV REDS (RO) saopar’ Clem CONTENTS OF RPDS! J 
9337% Ole737 O000le OCllze MOV 1, SBDROR sFORM REGISTER ADDRESS OF ERROR MESSAGE 
033744 001122 Hi F SBDARR sADD RH11 BASE ADDRESS 
033750 001124 CLR T : WHAT REGISTER D 
033754 27 OOlle4 O0l1126 CMP T,SSODAT 31S THe REGISTER OK ? 
b337be 091 9 66 :BR IF OK 
10401 ERROR 10 ;REPORT THE ERROR 
0051 1244 COM CKERR SET I REGISTER COMPARE ERROR INDICATOR 
01 O01126 66%: MOV RECS1(RO) SBDDAT’ HE CONTENTS 
1 091122 MOV 1, SBOAOR Fist ADDRESS OF REGISTER 
ilze ; ADDRESS 
BIT RO, $e SBDDAT 31S ’MCPE’ SET ? 
BEQ 67§ BR IE IF yor 
O340e2 1040) ERROR 11 :REPORT THE ERROR 
bai0e4 ooo0co ee ROY STRE,RPCS1(RO) ‘Or EAR "MCPE’ 
Bog fees ay CESARE RDF® eu oy pon 
03404 137 O34556 INP is ;DRIVE IN NEUTRAL, BYPASS REST OF TEST 


5p RERERERAAELLAALELELSLELSELESELELELELEREELEELREELELERAEL ALLELE 
sRELEASE THE DRIVE FROM PORT A 
1 1 0 Ove PORTA, RPCS2(RO) -SELECT PORT 
Baapen bi e737 1554 ee PORTA:PTNBR ;MOVE PORT appRese TO LOCATION FOR TYPEOUT 
034062 012760 13 000000 NOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT 
;VERIFY THAT DRIVE IS SEIZED BY PORT’B WHEN RELEASED BY PORT A 
005037 001250 CLR ERROR’ INDICATOR 
Ol 00 ~ MOV Sule tt A ELERSE ERROR COMPARISON CONSTANT 
108 1 - MOV GIs ADDRESS’ INCRE 
11 1 ADD ADDRESS FOR TYPEOUT 
O34114 ii 1 000010 MOVB BOA 18, RPC (RO) i C CT PORT 8 
Ovilee ot leee 001234 MOV PORTB, PT SS TO LOCATION FOR TYPEOUT 
0341 16037 O000i2e 001 MOV aca fat rE sREAD STATUS REGISTER FROM PORT B 


SSIES OTS a 
gs 
: 








O2=NOV-76 18:49 T26 TEST RELEASE BY PORT ’B’ WHEN SEIZED BY PORT ’A’ 

034136 113760 001224 900010 MUVB  PORTA,RPCS2(RO) ;SELECT PORT A 
pene 13737 O0le24 001234 MOV PORTA'PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

1 16037 900012 OOlle6 NOV RPDS1{RO), saobat “DRIVE STATUS FROM PORT A 
O34 01403 BEQ 8§ sBk IF STATUS FROM PORT A ZERO 

i 001164 TSt STMPO 15 STATUS FROM PORT B ZERO ? 
O34166 001401 BEQ 68S F 
O34! 104031 ERROR dhe REP ORT DRIVE IN NEUTRAL 
0341 13737 001164 001126 68S: MOV MPO, SBDDAT ; CHECK STATUS FROM PORT B 

013737 OO leg Ocle34 MOV PORTB’ PTNBR * CHAI T ADDRESS SOR TYPEQUT 


126 cir SGDDAT, SEODAT ; COMPARE ein CONSTANT 
ERROR 27 REPORT REGISTER ERROR 


ae 
& 
seooT 


8 
oo oS 
ose 
BB 
ee 
8 
B 


69$: 
sRELEASE THE DRIVE FROM PORT B 


0342 000010 MOVE —- PORTB, RPCS2(RO) -SELECT PORT 8 ies 
MOV PORTS.PTNBR ;MOVE PORT ADDRESS T9 LOCATION FOR TYPEOUT 
034236 000013 o9000c MOV #13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


pee aa ANSI Mata tan ahi ceteceettae ie tc PRE ERR 
2 


O34244 001259 CLR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 
O34250 012727 O000l2 o0l122 MOV 1,$BDADR FORM THE ADDRESS OF RPOS1 FOR TYPEOUT 
bauses bier? br 1700 a i600, Rison 
| 1 O11 001124 MOV sMOL!PGM! DPR! DRY! vv ISON CONSTANT 
BauSoE tee eae: raised ove Forert ) rhe OR e TATUS REGISTER FROM PORT A 
Fauses DLSta7 SOLIoB potted MOY OSTRRS.§ ot it 3 

042737 100100 001164 BIC BATA'VV.STMPO CLEAR PORT “DEPENDENT BITS FROM THE COPY 
034320 113760 001226 000010 MOVB PORTB. RPCS2(RO) tETECT POR 
034326 O01 000012 001172 MOV Brosh ),STMP3 ;GET Ti DRIVE” STATUS REGISTER FROM PORT 8. 
O34 013737 001176 001166 MOV § ;COPY IT INTO *STMPL’ 
oa 2737 100100 OO1166 BIC BATA! VV. STMPL ; PORT DEPENDENT ITS FROM THE COPY 
ox tesa? 001164 001166 cre STMPO, St ils THE ygyrtus REGISTER THE SAME FROM BOTH PORTS ? 
spices Qos737 01164 TST TMPO : CISTERS ARE THE SAME: ARE THEY ZERO ? 
cee 1 dae ERROR i BE No T IN NEUTRAL OR NOT SEIZED 
neta 3 IMP iBYPRGS Tre RES OF THE CHECKS 

374 Ol 1170 001126 708: § MOV TMP2,SBODAT  ;SET UP POSSIBLE BAD DATA FOR ERRCR MESSAGE 
1 1226 001234 TB, PTNBR iBEIZ NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
10 1 Oo leet 000010 N09 TB/RPCS2(RO) iSEL T PORT B. 
16 D011 TST : F STATUS EQ 0 FROM PORT A. 
Bed 013737 00124 001 HOV PORTA, PTNBR eu SPORT IF TEST SHOuS DRIVE NOT IN NEUTRAL 
faad ft cate Dalies MOV STMP3, rT 3? Pach FOR ERROR 
oo lees 00001 MOVB —~ PORTA, (RO) i SELECT A. 
1166 ist 1 ibe i F STATUS EQ ZERO FROM PORT B. 

neta nt 177777 001250 718: MOV #-1,RELERR SET ASE ERROR’ INDICATOR 

ot ! MOV rf *RPCS1(RO) bet 

MOV *RPCS1(RO) VE 

1 ERROR Ha i] 26 
034500 ot 728: MOV STMP2, SBDDAT ik Gox FOR 617, FRIL RILURES WHEN RPDS! READ 
03450 1 MOV PORTA, PTNBR 36 
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DZRIEA.CMB  ‘O2-NOV-76 18:49 T26 TEST RELEASE BY PORT 'B’ WHEN SEIZED BY PORT "Q’ 
O34514 023737 001124 001170 CMP SCOOAT , STIPE sALL BITS Ok ? 
O34S22 001401 BEQ 738 ;BR IF OK FROM PORT A. 
paiese d ERROR 7 sREPORT ERROR 
13737 ppl ize 001126 738: MOV STMP3, SBDDAT sCHECK RPDS] FOR BIT FAILURES - FROM PORT 8B. 
53 0137 le26 001234 MOV PORTB: PTNBR $ PORT I 
42 001124 001172 CMP SGDCAT, STMP3 +SEE IF READ OK FROM PORT 6. 
90140} SEQ 74S ;BR IF OK 
] ERROR 7 sREPORT ERROR 
000240 748: NOP 
OS4SSE 000004 18: SCOPE sLOOP ? 


; 1 aa gr ig Oo st + ai 
SKIES TEST SEIZE BY WRITING ATTENTION BIT 


i 
:*TEST -— a UNG THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
PORT. 


o RELLELELERRE REE KRESS RSER KS RKKEREERELSLE SLEEK LAKE ERERRERERELSERSS 
beEL ECT DRIVE OTHER THAN THAT BEING TESTED 


os 313760 001230 000010 MOVB PORTC,RPCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
C347; 37 O0lee4 001236 MOV PORTA,SEIZPT  ;*SEIZED’ PORT ADDRESS 


S345 
5846 
ire 
sev 
5951 
Secs 
ee, 
5859 
eee ia ) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
5863 + 
5864 :# A. WRITE THE APPROPRIATE DRIVE BIT INTO RPAS; VERIFY THAT THE DRIVE 
ose i IS SEIZED. 
5867 :# B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
5868 1 DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
586 :# OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
5871 034560 ii 10 pypeyaenataamneraae pen sera mines ie amegiente iy vit asate: 
BG 934560 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
5874 034564 001406 BEQ 2s BR IF NOT 
5875 Gaiobb 1 BPL 1$ °BR IF JUST ENTERED TEST 
3a7B Neakid og2692 IMP RETURN & GET NEXT TEST NUMBER 
eave Gaeoe Tis037 Agoos? bolas 3s Nove eae" SYETNA tPEcT HUMBER ~) NOICATOR 
5879 034610 012737 001106 MOV #TE5T27,SLPADR ;LOAD LOOP ON TEST ADDRESS 
5880 16 Ole? 37 001110 MOV aTESTE? SLPERR *LOAD LOOP ON ERROR ADDRESS 

1 01 001176 MOV #4000.,$TIMES :;D0 4000. ITERATIONS 
Ses2 O34632e 012706 001100 TEST27: MOV 8STACK, SP >LOAD THE STACK POINTER 
eae! ;CLEAR ATTENTION BITS FOR BOTH PORTS 
5886 034636 113760 001224 OO0010 MOVB PORTA, RPCS2(RO) ;SELECT PORT 
Be Bes 8 BEE om = Alm) TEE eh 

oie760 13 000000 MOV ais RPtSL CRO) sRELER ae DRIVE 

Basi Omer? GSceO DOOIS CLR RoR eet SEIZE THE DRIVE THROUGH PORT *B° 
poze re 012760 D001 p9000 MOV a1 ROC (aD SEL tts 
be 012760 00001 MOV #13, RPCS1( tRETEAGE THE 
SE9S 
5697 


or 
Bs 
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5956 ; VERIFY THAT DRIVE IS SEIZED GY PORT A WHEN RELEASED BY PORT B 





DZRJEA. 02-Nov-76 18:49 TEST SEIZE BY WRITING ATTENTION BIT 

S301 Ss RRRKASAAAKFAAAASLELAALRSLERE LAE RLELLALAARA LALA LLERSKLELELEEELSES 
20e ‘WRITE THE DRIVE’S ATTENTION BIT 
5904 034726 013760 o01232 opn016 MOV ASR1.RPAS(RO)  ;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 
5390S 034734 113760 Of1224 000010 MOVB PORTA, RPCS2(RO) "SELECT PORT A , 
5308 O34742 013737 OOlec4 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
5908 33 SHREPES FSSA HA SRE SFE RES EAL ELLE SEMEL LK LEFL ELLA ELSA SSA KAAS SSF SAK FSS 
2303 :VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 
5911 034750 005760 000012 TST RPDS1(RO) ;SEE THE REGISTER THROUGH PORT A ? 
£912 034754 O01014 BNE 1$ BR IF YES 
5913 034756 113760 001226 000010 MOVB § PORTB,RPCS2(RO) "-SELECT PORT B 
S914 034764 013737 OOlec 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
5915 034772 005760 000012 TST RPOS1tRO) ;SEE REGISTER THROUGH PORT B ? 
5916 034776 001021 BNE 2s : : 
5917 035000 10404 ERROR 42 :DRIVE NOT IN NEUTRAL OR SEIZED 
2218 035002 000137 036552 = IMP u§ *BYPASS REST OF TEST 
5920 G300e 1 001226 00010 ~— MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
5921 14 01 001226 001234 MOV PORTB.PTNBR ;MOVE PORT ANDRESS TO LOCATION FOR TYPEOUT 
53822 035022 005769 000012 TST RPDS1tRO) REGISTER SHOULD BE ZERO T PORT 
easq = hea 000127 035702 ane 35 ‘et atus REG IS. ERD _— 
5925 035034 104043 ERROR 43 *DRIVE IN NEUTRAL AFTER WRITE ATTN BIT 
5925 035036 000137 o36Ss2 IMP 4§ *BYPASS REST OF TEST 
Bese $3 LESLEEFSE SEL ALEKS ELLER ESL EE RERE RETR ESSE SES EE ELSE LRSEE EYEE SESS ER 
2303 >PORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 
ea ma 005037 001244 a CLR CKERR CLEAR THE ’CHECK ERROR’ INDICATOR 

| 933 heat 016037 O00012 001126 MOV RPDS1(RO), SBDDAT’ :GET CONTENTS OF RPDS1 

| §934 035054 012737 OO00D12 OOllee2 MOV #RPDS1,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
5935 035062 060037 G61 128 ADD RO, SBDADR jADD RH11 BASE ADDRESS 

| 5936 035066 012737 011700 001124 MOV #MOL!PGM! DPR! DRY! vv T :WHAT REGI 
6937 035074 013737 001126 OO1164 MOV SBODAT,STMPO.; REGISTER CONTENTS TO *STMPO’ 
6938 035102 042737 106077 001164 BIC 81C71700,STMPO ;SAVE SPECIFIED BITS 
5939 03511 bea 37 001124 001164 CMP T,StMPO © ;COMPARE THE BITS 
5940 03511 1414 BEQ 64S *BR IF OK 
Baus Gaeise pussay prieee potiay Bie || SPAPOU’STNPY «—FECEAR FOE RRSRED BITS 
boy paetse nae pat o4 Sotto 1S STMPY, SGDDAT TOR WITH GOOD DATA FOR TYPEOUT 

| 54 035142 O4010 ERROR 10 *REPORT THE ERROR 
eae re th 137 001244 oe con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
5947 035152 013737 001226 001236 "MOV PORTB,SEIZPT  ;ADDRESS FOR ERROR MESSAGE 
eae 035160 013737 O0lee4 O01240 MOV " OPPRT *SAME AS ABOVE 

250 sRELEASE THE DRIVE FROM PORT B 
5 035166 113760 001226 000010 MOVB  PORTB,RPCS2(RO) ;SELECT PORT B 
5953 035174 013737 O0lec6 001234 MOV PORTB.PTNBR ; PORT ADDRESS TO LOCATION FOR TYPEOUT 
pees 035202 012760 000013 o00000 MOV #13,RPCSI(RO)' ;ISSUE THROUGH PORT B 

| 

| 

[ 
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DZRJEA.CMB ‘O2-NOV-76 18:49 Te? 


RELERR - CLEAR 
MOV e8TR:ROL 1p OPR| SRY VV SGODAT ; COMPARISON CONSTANT 
MOV aRPDSI $BDADR Fee 1S] TER ADDRESS’ INCREMENT 
ADD GISTER BASE ADDRESS FOR TYPEOUT 
MOVB PORTAL RPCS2(RO) a 


T PORT 
MOV PORTA’ PIN dovi ADDRESS TO LOCATION FOR TYPEQUT 
MOV RPDS1URO STHBO sREAD STATUS REGISTER FROM PORT 


POR TB, RPcSECROD -SELECT PORT 

MOV CORTE PTNBR PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RPDSLIR Oy sanbay -DRIVE STATUS FROM PORT B 
BEQ BES BR IF F Sie T FROM FORT B ZERO 
TST STMPO 21S § A ZERO ? 

Q 66S BR ir ATER 
ERROR 44 *REPORT DRIVE NOT SEIZED BY PORT A 
MOV STMPO,SBDDAT © CHECK STATUS FROM PORT A 
MOV PORTA’ PTNBR ;CHANGE PORT ADDRESS FOR TYPEOUT 
cH SGDDAT, SEDDAT s COPPER WITH CONSTANT 
ERROR 27 *REPORT REGISTER ERROR 


;RELEASE THE DRIVE FROM PORT A 


MOVB —- PORTA, RPCS2(RO) -SELECT PORT 
MOV PORTA ;MOVE PORT BOORESS, TO LOCATION FOR TYPEOUT 
MOV #13, Recs TB)’ s ISSUE RELEASE THROUGH PORT A 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 
Fh THE "RELEASE ERROR ’ INDICATOR 
TYPEOUT 


RELERR 
MOV #RPOS1 , SSDADR ORM _ THE ADDRESS OF RPDS1 FOR 
jAbo THE ‘te BASE ADDRESS 


STMP2, STMPO :COPY IT INT 
I BATAIVV. STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 


MOVB 
HOV RPDS1 (RO), STMP2 iat THE Bev STATUS REGISTER FROM PORT A. 
Ave TB, RPCS2(RO) T PORT 

nov tho) SIP Se Ste DRT “STATUS REGISTER FROM PORT B. 
BIC 


‘STMP3 *COPY IT i 1 *STMP1’ 
I #ATA'VV.STMPL 3CLEAR PORT DEPENDENT BITS FROM THE COPY 


CMP STMPO, StMP1 *IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
fet Sfhpo HREGESTERS ARE THE SAME: ARE THEY ZERO ? 

ERROR 46 REPORT D RIVE NOT IN IN NEUTRAL OR NOT SEIZED 

IMP 7 CHECKS 


ere all § pobccirsn seer te at "EQ O FROM PORT A. 
e96 F ZERO 


Q 
MOV PORTA, PTNBR cer ING PORT IF_TEST sous DRIVE NOT IN NEUTRAL 
YPE OUT 


MOV STMP3, SBDDAT ;*BAD DATA’ 4% ERROR 
MOVB  PORTA,RPCS2(RO) ;SELECT PORT A 








OM AG ae 





SAE GRAM LR thE 


eae 905737 001166 Ist §T¥PI SEE JF ,g]ATUS EO ZERO FROM PORT 8. 
01273 001250 698: NOV 1, RELERR :SET ’RELEASE ERROR’ INDICATOR 
Beeb B81 | OBE MOV a18,RPCSLCRD zGLEOR THE DR bxive 


TYPE ERROR MESSAGE 26 
STMP2,SBDDAT LOOK FOR ba aes FAILURES WHEN RPDS1 READ 

MOV PORTA’ PTNBR Sy: 

CMP SGODAT, STMP2 BLL BITS 

BEQ 71$ BR IF OK Pron PORT A. 





ray 023737 O01 001170 

42 ee) 

035644 104 ERROR 7 REPORT 

035646 013737 001172 901126 71S: MOV STMP3, SBODAT ; CHECK Rte FOR Bit FAILURES - FROM PORT B. 
O3S6S4 013737 OO0le2e6 001234 MOV PORTB. PTNBR ; CHANGE 

035662 ate O01ie4% 001172 ce scpont, STMP3 sSEE IF READ OK FROM PORT B. 

Baer op tooo? ERROR 7 % ;REPORT ERROR 

035674 re 728: NOP 

038676 000137 Os65S2 JMP 4§ 


5g GES AEA EEE EERE ERE REE REESE EERE EERE REE EERE EE 
;THE DRIVE iS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 


et 

14 

1s 

ty 

6018 

6019 

es 

6023 

£024 

6025 

6026 

6027 

6928 

6029 

6030 

6931 

£032 

6033 

6034 

6035 035702 33: 

enay Gaerie OLara? Dosey DbLeaM HOV Porta’ PINBR  ;HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
' 

ae 32510 BbaG3? itt oe CLR ree The Ck ERSGe INDICATOR 
aes tt 

po33 hee p18034 eee Bt is8 MOV SF FOR eae BoBRESS OF ERROR MESSAGE 

6041 035736 060037 001122 ADD ADDRESS 

- Bove peta 1 911700 go11e4 MOV art an oem: ORY WY, StODAT™ Gi ;WHAT REGISTER SHOULD BE 

. 1 11 1164 MOV SBODAT,STMPO|  ;MOVE REGISTER CONTENTS TO ’STMPO’ 

6044 035756 042737 106077 O01164 BIC Sisoat,8 STMPO ; CAVE SPECIE IED BITS 

£9045 023737 001124 001164 CMP TMPO = s«S COMPARE THE BITS 

ce Bers Gir couse ony = Bet Blo oar 

6048 Benae eee al 001174 BIC Setar, sre SEDEAR THE RASKED BITS 

£049 036010 053737 001174 601124 BIS STHPA, $GDDAT i OR MIT WITH GOOD DATA FOR TYPEOUT 

epee Nee Ape048 001244 a *SET THE Theis FR COMPARE ERROR INDICATOR 

6052 936004 000240 733: NOP 

6053 036026 013737 001224 001236 MOV PORTA,SEIZPT  ;ADDRESS FOR ERROR MESSAGE 

boed 036034 013737 OO0le26 001240 MOV PORTB, OPPRT *SAME AS ABOVE 

6056 ;RELEASE THE DRIVE FROM PORT A 

S 1 001 0 MOVB TA, RPCS2(RO) 

Bbeg heed 1 Bot 55q hae MOV PORTA’E nove “BOAT Abbe ebonESs TO LOCATION FOR TYPEOUT 

060 036056 012760 000013 o00000 MOV #13, Tacs cho)’ sISSUE RELEASE THROUGH PORT 

bbe VERIFY THAT heer IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

6064 036064 005037 001250 CLR jCLEAR "RELEASE ERROR’ INDICATOR 

6065 636070 012737 111700 001124 MOV OGTR ROL LPGHDPR lORY! VV SDDAT iC OMPARISON CONSTANT 

6066 012737 3 001122 MOV #RPOS SB BDADR sPaCETe SS’ INCREMENT 

6067 036104 060037 0011 ADD R_BASE “PoORESS FOR TYPEOUT 

6068 036110 113760 001226 oco0010 MOVB he RPCS2( RO) SELECT POR 
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DZRJIEA O2-NOV-76 19:49 127 TEST SEIZE BY WRITING. ATTENTION BIT 
6069 036116 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6070 036124 000012 OO1164 MOV RPDSItRO).STMPO ;READ STATUS GISTER FROM PORT B 
607 036132 i 1224 000010 MOVB  PORTA,RPCS2(RO) °;SELECT PORT 
eed 140 013737 O0le24 001234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6073 O36146 6037 OCOOle OO1126 MOV RPDSI{RO),S$BDDAT ;DRIVE STATUS FROM PORT A 
Pooe Gaeise oos7a? OOL1eY Fee Fae 1 ati Van tars east 
6076 heats aed BEQ su ibe i TERO 

036164 104044 ERROR 44 "REPORT DRIVE NOT SEIZED BY PORT B 
6078 036166 013737 OO1164 001126 75$: MOV $TMPO,SBDDAT  ;CHECK STATUS FROM PORT B 
174 Ol 001226 001234 MOV PORTB;PTNBR ‘CHANGE PORT ADDRESS FOR TYPEOUT 
£980 d3be02 024737 001124 O0il26 CMP SGDDAT,SBDDAT  ;COMPARE WITH CONSTANT 
§081 10 001401 BR IF OK 
6082 Osbele i04C27 ERROR 27 *REPORT REGISTER ERROR 
6083 036214 76$: NOP 
cos sRELEASE THE DRIVE FROM PORT B 
6087 036216 113760 001226 O00010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
6988 036224 013737 OO0le26 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6089 O3be32 012760 000013 00000 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 
EDs r sVERIFY THAT THE DRIVE IS IN NEUTRAL 
6093 036240 005037 001250 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
6094 036244 012737 O000l2 001122 MOV 8RPDS1,SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
peee pete? Brtod 001124 Soo ee Tor pr epRyivy SenDAT - s CORBARTeGH CONSTANT 
pRas peesea ree ae 10 MOVB anol Boer RDS : SELEET PORT’ A 
6098 036272 G16037 900012 001170 MOV RPDS1(RO),S$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
6099 036300 013737 001170 001164 MOV MP2, STMPO :COPY IT INTO ’STMPO’ 
6100 036306 042737 100100 001164 BIC #ATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
6101 036314 113760 001 000010 PORTB,RPCS2(RO) :SELECT PORT B. 
6102 O363e2 016037 le 001172 MOV RPOSI(RO).$TMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
6103 036330 013737 001172 001165 MOV STMP3, STMPI -COPY IT INTO 'STMP1’ 
6104 036336 042737 100100 001166 BIC #ATA'VV.STMP1  :CLEAR PORT NDENT BITS FROM THE COPY 
6105 036344 023737 001164 001166 CMP STMPO, STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
£108 036352 901008 BNE 775 BR IF NOT 
6107 036354 001164 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
St: parse ets BREOR tng BE OORT DRIVE T IN NEUTRAL OR NCT SEIZED 
clio Sarai Qools? mss || Si ais Seri Te REST OL THE CHESS 
00 OU H ‘ 2 
eid baea7e Bara 001 0012 MOV SORTS’ PINBR ETO ING PORT TF feet SHOWS RIVE NOT Th NEUTRAL 
Git Gas Garey Bitien MONO RRRPESECD FATE arn 0 rnon ont 
6115 ig 1414 BE *BR e 
6116 O36420 013737 001224 001234 MOV PORTA, PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
6117 456 13737 001172 O01126 MOV STMP3,SBDDAT _;’BAD DATA’ FOR ERROR TYPE OUT 
BLE teed taerep Goiice OO HEY SIRE APESECROD Ft ffrEVATUS'Eo Z=R0 FON PORT 8 
6120 Bae eat BNE 7 Bae tr Not 
6121 01 177777 001250 78%: MOV #-1, RELERR *SET "RELEASE ERROR’ INDICATOR 
Glee 036456 012760 000011 000000 MOV #11;RPCSI(RO)  ;CLEAR THE DRIVE 
bles O36464 012760 000013 Oo00000 MOV #13;RPCS1(RO) RELEASE THE DRIVE 
ble4 O36472 104026 ERROR 26 *TYPE ERROR MESSAGE 26 





a ne me me 
i] 
’ 
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6125 O36474 013737 001170 001126 79%: Mov STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
Siem O326502 013737 OOle24 001234 MOV PORTA’ PTNBR CHANGE PORT NUMBER 
61 10 023737 001124 001170 MP cooAT, STMP2 FALL BITS OK ? 
2 e16 14 4 EQ 0 ‘BR IF OK FROM PORT A. 
1 i ERROR *REPORT 
61 013737 001172 001126 80$: MOV STMP3,SBD0DAT  ;CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
61 D137 7? 001226 o01234 MOV PORTB: PTNBR *CHANGE PORT NUMBE 
Bl <7 7? OOlle% O01i72 CHP ScpoAt, $THP3 SEE. IF READ OK FROM PORT 8. 
i baeeue richie ERROR 7 "REPORT ERROR 
135 036550 900240 81$: NOP 
: 0365S2 000004 4$; SCOPE ;LOOP ? 


5 5 RRRARRERERAE LEAL EA LRA A ALLER ALE ALLE LAER LEE ELLA ALE LEAS LER EELEE 


;*TEST 30 TEST NO SEIZE WHEN ’°0’ WRITTEN INTO ATTENTION BIT 


o# 
:*VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ZERO’ IS WRITTEN INTO 
* THE DRIVE’S ATTENTION BIT. 


+ 
* fi. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 


FRESV-SBBVERLZGRHS Soars 





6 
6 
é 
§ 
61 
61 
61 
6} 
61 
61 
Bi 
B16 i BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
148 *% B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
6150 ME TTTTTTT TTT TTT TTT TTT TTT ETT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TT TTT 
6151 036554 +$730: 
6152 036554 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
cies DSEeee Sonoe et BR IF JUST ENTERED. TEST 
plée papers redid 002602 kits bec *RETURN PST ENTE TEE NUMBER 
6156 036570 012737 177777 001274 1S: MOV #-1, KYBCTL *SET SINGLE TEST INDICATOR 
6157 036576 112737 000030 001102 2S: MOVB #30. STSTNM - TEST 
6158 036604 012737 036626 001106 MOV #TEST30,SLPADR LOAD LOOP ON TEST ADDRESS 
6159 036612 012737 036626 001110 #TEST30,S$LPERR ;LOAD LOOP ON ERROR ADDRESS 
6160 036620 012737 oo7e4 001176 MOV #4000. ,$TIMES +;;D0 4000. ITERATIONS 
bibl 036626 012706 0011 TEST20: MOV #STACK, SP :LOAD THE STACK POINTER 
b1E3 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
6165 036632 113760 MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
Pie? OSeeNy Brazen ee OS an) HELE ReiveTh Een 
6168 peepee ote ee MOV aid, BER 185} SREP EASE THE VE 
6169 O36660 113760 MOVB §PORTB,RPCS2(RO) ;SELECT PORT #8 
6170 036666 005060 CLR RPOS1{RO) >SEIZE THE DRIVE THROUGH PORT ’B’ 
bi?) 036672 012760 MOV #11, RPCSI (RO) ; ISSUE CLEAR 
172 036700 012760 MOV #13,RPCSI(RO) ;RE DRIVE 
173 036706 113760 PORTC,RPCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
6175 fp RERLRRLAERAEELRELEE LAER LRAE RELL EL ELLE RLLERE RELA EERE ELAR ELLER ELE 
6176 “WRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
6178 036714 013737 001232 001164 MOV ASR1,STMPO sSTORE ATTN BIT FOR PORT A 
6179 036722 005137 001164 COM STMP : EMENT IT 
6180 26 013760 OO1164 oD0016 MOV STMPO,RPAS(RO) ;WRITE THE ATTN REGISTER 
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T30 TEST NO SEIZE WHEN '0’ WRITTEN INTO ATTENTION BIT 


5 BE RHEE SEE SER RHEE HEHE REESE RETESET ERE EE EEE EE 
VERIFY THAT ORIVE REMAINDED IN NEUTRAL 
; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR_THE RELEASE ERROR ’ INDICATOR 
MOV ig Tt SBDADR iFORM THE yet OF RPDS1 FOR TYPEOUT 


ADD 
MOV aL! CHS DPR! DRY! WW v, $enbaT +s EORPARSON CONSTANT 
MOVB PORTA. RPCS2(RO) ; sSELECT 


MOV RPDS1{RO) STMP2 ; T THE PORIVE, Pu REGISTER FROM PORT A. 


MOV SSpy AR PORT D *STMP! 
BIC #ATAIW, STMPO CLEAR T DEPENDENT BITS FROM THE COPY 


ECT 
MOV RPDS1{RO) STMP3 ‘GET y "DRIVE, star etary REGISTER FROM PORT B. 


MOV STMP3, STMPL ;COPY I 


BIC WATAIVV. STMPi ©; CLEAR POR! DEPENDENT BITS FROM THE COPY 


chp STnPO, StHP1 iS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
Ist STHPO ; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ERROR 46 "REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
IMP 68S *BYPASS THE REST OF THE CHE 
64S: MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSA 
MOV PORTE, ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTE, RPCS2(RO) ;SELECT PORT B. 
TST STMPO SEE IF STATUS EQ O FROM PORT A. 
BEQ 65S BR IF ZERO 
MOV PORTA, PTNBR ;SEIZING PORT IF_TEST SHOUS DRIVE NOT IN NEUTRAL 
MOV STMP3,SBDDAT  }’ BAD DATA’ OUT 
MOVB PORTA’ RPCS2(RO) ;SELECT PORT A. 
ST STMP1 *SEE IF STATUS EQ ZERO FROM PORT B. 
: 


6$ °BR IF NOT 

nr ie $11 RECS CRO) ieteae he. so 
MOV $13" RPC 1(RO) EASE Tie 0 Drive. 

ERROR 3 HTYPE ERROR 


SAGE 21 
665: MOV STMP2,SBDDAT  ;LOOK FOR art PATLURES WHEN RPDS1 READ 
MOV PORTA, PTNBR i CHANGE P PORT NUMBER 


CMP DAT,STMP2  ;ALL BITS OK ? 
BEQ a *BR IF OK FROM PORT A. 
ERROR ;REPORT 


67S: MOV $TMP3, SBDDAT 
MOV PORTB; PTNBR CHANGE P 
CMP SGDDAT, $T MP3 SEE IF READ OK FROM PORT B. 


BEQ OK 
ERROR 7 REPORT ERROR 
68S: NOP : 
SCOPE ;LOOP ? : 


; EE HAHAHA HEHE HGH HEHE HOHE HHH HGS OHHH HGH HEHEHE 
ATE ST 31 TEST PORT ’A’ TIMEOUT DOES NOT RESET DRIVE 


; CHECK Rebate FOR pit FAILURES - FROM PORT B. 
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DZRJEA.CNB ‘O2-NOv-75 18:49 131 TEST PORT 'A’ TIMEOUT DOES NOT RESET DRIVE 
6237 s EVERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
6233 is A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
be¥l i 8. WRITE 1°S INTO RPERL THROUGH PORT ’A’. 
6243 :# C. WAIT FOR THE DRIVE TO TINEOUT, VERIFY THAT THE DRIVE RETURNED TO 
§o44 * NEUTRAL; THAT ATTENTION Is SET F FOR, FORT "0" ON Dis NOT = FOR 
bev i PORT ’B’s AND THAT BOTH POR *S IN THE ERROR REGISTER. 
6247 : © LEFREKLELKLH ES SEKE ESKER KEELES ERE LEE REESE EES SERRE RR ELA EEL E ERLE EL ES 
£248 037250 té731: 
6249 037250 005737 001274 TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
6250 037254 001406 BEQ 2s *BR IF N 
6251 037256 100002 BPL 1$ :BR IF MYST ENTERED TEST 
6252 037260 000137 onzE02 IMP EXEC ?RETURN & GET NEXT TEST NUMBER 
037264 (12737 177777 001274 1S: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
bepd e737 909031 001192 2s: MOVB rf af reru : TEST R 
1 722 1106 MOV E5T31,SLPADR ;LOAD LOOP ON TEST ADDRESS 
6256 12737 037322 901110 MOV betes *$LPERR s LOAD LOOP ON ERROR ADDRESS 
6257 037314 Ole737 000004 OOli7s _ MOV >:D0 4 ITERA 
be58 012706 001100 TEST31: MOV aS etic LOAD THE BaAeK NBOINTER 
beb0 CLEAR pat BITS FOR BOTH PORTS 
beb2 037326 113760 001224 000010 MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
6263 037334 oo0d1e2 CLR RPDS1{RO) ‘SEIZE THE DRIVE 
6264 037340 012760 000011 oopo000 MOV al, RPCS1 (RO) *ISSUE DRIVE CLEAR 
6265 037345 Ole760 0000:3 o00000 MOV #13-RPCSI(RO)  ;RELEASE THE DRIVE 
6266 037354 113760 001226 O00010 MOVB Ports RPCS2(RO) setSCT PORT #8 
6267 037362 060 o00dl2 CLR RPDS1tRO) THE DRIVE THROUGH PORT ’B’ 
6268 027366 012760 O00011 oop0000 MOV #11, RPCSI(RO)  ;3ISSUE DRIVE CLEAR 
6269 037374 012769 000013 MOV *RELEASE THE DRIVE 
psy PE erent rt ear E hire nen ber rthr er itr ht Senne ener r eee e 
be7e sSEIZE THE DRIVE THROUGH PORT A 
£274 037402 113760 001224 000010 MOVB § PORTA,RPCS2(RO) ;SELECT PORT 
6275 037410 013737 Of1224% 001236 MOV PORTA, SEIZPT sSTOR RE SEIZING PoRT’S ADDRESS 
6276 037416 O0S060 o0001e CLR RPDS1 (RO) T 
be77 037422 013737 001226 001240 MOV PORTB, OPPRT OPPOSITE? PORT ADDRESS 
| 6273 H eee eee eee eet ete ete s eee tees e ties ttt tet t ts ttt ist i ttt ited 
| beB0 FORCE AN ERROR 
6282 037430 012760 177777 OO00014 MOV #-1,RPER1(RO)  ;SET ERROR BITS 
| 6284 : © ESLKE RESELL KKH LL EHSL LA HEK HEE KKRE ERA ERLE EKER EERE LEE KLE REE ERE 
6285 taTART THE TIMER 
Pees 037436 005037 001252 CLR TINE ;CLEAR THE ELAPSED TIME COUNTER 
6288 oariie Ciera? 0 003720 001254 MOV oo. *SET WATCH To 2000 MS 
£289 113760 001226 O00010 MOVB BERT abcestRO) *SELECT P 
| 6230 037456 013737 OOl2e26 001234 MOV PORTB,PTNBR ;MOVE PORT aboRess TO LOCATION FOR TYPEOQUT 
bette $ 5 RRRRERA EL AERA ELE ERLE RAE RHEE LAR AL AREER EKER RARE EERE RARER EERE 
| , 
| 
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ps2 ;WAIT FOR DRIVE TO TIMEOUT 
6295 037464 005760 O00012 18: TST RPDS1(RO) ;WAIT FOR THE DENBED TO BE RELEASED 
Psag 747 Be1004 NE es ;BR IF DRIVE R 
74 7? 001254 ST WATCH ;WATCH AT_ ZERO 
6298 037476 001372 BNE 1$ NOT 
pes Bae0S 104036 25 ERROR 36 1 A NOT RELEASED WITHIN 2 SECONDS 
6301 03 113760 OO0lee4% 000010 ; MOVB PORTA,RPCS2(RO) ;SELECT PORT A 
6302 037510 013737 OO0lee4 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 










£304 2 g RENE LAR RREREREREL ERE LEAL RARER AERA EE A EREEE ERE EA LRRER ERR EE AEE 
6305 tHE ERROR BIT (’ERR’) IN RPDS! SHOULD STILL BE SET 
6307 037516 005037 001244 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
6308 037522 016037 O00012 001126 MOV RPDSI (RO) SBDDAT’ :GET CONTENTS OF 
6309 037530 012737 000012 ODlie2e MOV SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6310 037536 060037 001122 ADD R Hil BA ESS 
6311 bs7eMe 012737 O40000 001124 MOV Ro, $6 $cbbqT i swat 1 REGIST R SHOULD BE 
6312 013737 O0ile6 001164 MOV AT. $T GISTER CONTENTS TO ’STMPO’ 
6313 037556 042737 137777 001164 BIC #tC4O000,STMPO ;SAVE SPECIFIED BITS 
6314 037564 023737 001124 001164 CMP SGDDAT,STMPO COMPARE T 
6315 037572 001414 BEQ BR I 
6216 037574 013727 001126 001174 MOV SBDDAT,STMPY COPY ’BAD DATA’ 
6317 O37602 042737 O40000 001174 BIC #40000; STMPY CLEAR THE MASKED BITS 
6318 037610 053737 001174 001124 BIS STMP4Y,$GDDAT  ;’OR’ WITH GOOD DATA FOR TYPEOUT 
6319 037616 104023 ERROR 23 TYPE M 
6320 037620 005137 o01244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
6321 037624 o00240 66S: NOP 
6323 SREP REFE LK EREL SRE RL EELS SEL EERE LL EES SESE EER LS ER EH ESSER ERE SE REEE 
b3e4 tHE ERROR REGISTER SHOULD CONTAIN 1’S 
6326 037626 001244 CLR CKERR ;CLEAR THE *CHECK ERROR’ INDICATOR 
6327 01 000014 001126 MOV RPER1(RO) SEDOAT, “GET CONTENTS OF Ri 
6328 012737 000014 OOllee2 MOV #RPER1,SB8DADR ;FORM GIST ER ADDRESS OF ERROR MESSAGE 
£329 O37646 O06 001122 ADD RO, SBDADR 1 BA 
O1 77 «001124 MOV reetea $GDDAT WHAT RE Ist R R SHOULD BE 
31 02 1124 OO1126 CMP SGDDAT, SBDDAT 15 THE 
037666 001403 BEQ 68S IF on 
6333 037670 104010 ERROR 10 i REPORT THE ERROR 
6334 037672 005137 o01244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
037676 00240 68S: NOP 







6337 $ © SHAE ERA LHASA RE RAE AAAS RHKARERE REARS ERASER ARES ARERR AERA SSA ARE EKE 

6338 ‘THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 

6340 037700 005037 001244 CLR CLEAR THE *CHECK ERROR’ INDICATOR 

ea 037704 016037 00001 901126 MOV ey SBDDAT’ :GET CONTENTS OF RPDS 
12 012737 0000 lle2 MOV 1,SB0ADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
| §343 20 060037 001122 ADD RO, $BDADR “ADD RH11 BASE AD 

037724 012737 196000 001124 MOV ante, RASGDDAT i ; WHAT Reerst ER SHOULD BE 
4s 32 Ol 1126 OOL164 MOV MOVE REGISTER CONTENTS TO ’STMPO’ 
634_ 037740 042737 077777 001164 BIC arceTe, STMPO ;SAVE SPECIFIED BITS 
6347 037746 023737 001124 OO1164 CMP $coDAT "STMPO s COMPOS THE BITS 





6348 037754 001414 BEQ 
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708: 


5p RMR RRR ERE ERR REAR EERE E EEE REAR EER EARLE SEER EE EEE 
; VERIFY THAT THE DRIVE IS IN NEUTRAL 


;CLEAR_THE ‘RELEASE ERROR ” INDICATOR 
:FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
“ADD T BASE ADDRESS 


7e$: 


75S: 


; COMPARS 
j SELECT T A. 
GET THE DRIVE’ STATUS REGISTER FROM PORT A. 


PORTB, PTNBR 
PORTE, »RPCS2(RO) 


ST NPS! $BDDAT 
PORTA, RPCS2(RO) 
STMP1" 
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;COPY ’BAD DATA’ 

CL EAR THE MASKED BITS 

;7OR* WITH GOOD DATA FOR TYPEOUT 
TYPE MESSAGE 41 

;SET THE REGISTER COMPARE ERROR INDICATOR 


1/0 
nat 


inw9 


COPY I 

;CLEAR PORT DETENDENT BITS FROM THE COPY 
eet TH PORT B. 

THE DRIVE Ra REGISTER FROM PORT B. 


T INTO ’ 


‘ebpy 
;CLEAR PORT DEPENDENT BITS FROM THE COPY 
iS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


;BR IF _NOT 
ie hot ARE THE SAME: ARE THEY ZERO ? 


seen DRIVE NOT IN + ge or NOT SEIZED 
BYPASS THE REST OF TH 
;SET UP POSSIBLE BAD DATA 
; SEIZING ad IF TEST SHOUS “SRIve No IN NEUTRAL 


;SELECT PORT 
SEE 


IF STATUS EQ O FROM PORT A. 


+SEIZ ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;’BAD DATA’ Ae ERROR TYPE OUT 


;SELECT PORT 
; SEE 


A. 
IF STATUS EQ ZERO FROM PORT B. 


:B NOT 
;SET 'RELEASE ERROR’ INDICATOR 
;CLEAR THE DRIVE 


; RELEASE 
: TYP 


| CHANGE P 


;DON’T CHECK THE ATTN BIT 
Bat S OK ? 
R IF apna PORT A. 


BR ORT 


; CHECK meet Aes AY FAILURES - FROM PORT B. 


; CHANGE PORT 


;DON’T CHECK THE ATTN BIT 
:SEE_IF READ OK FROM PORT B. 


:BR IF OK 
;REPORT ERROR 










THE DRIVE 
ERROR MESSAGE 26 
LOOK cor ont pares WHEN RPDS1 READ 





g Serene 
coon 


o 
Oo 
Oo 
Oo 
o 


001174 
001244 


DZ2RJEA.CMB "O2-NOV-76 1 
40S 040334 000240 
6406 

407 
408 
E419 O40 13760 
Mi) Byoses | O13737 
6412 O40352 37 
6413 040356 016037 
6414 040364 012737 
6415 040372 06 
E416 040376 00503 
E417 O40402 013737 
6418 40410 042737 
6419 40416 023737 
6420 40424 001414 
421 040425 013737 
422 O4O4S4 042737 
6423 O4O442 053737 
6424 40450 104052 
6425 O4C4S2 005137 
B426 O4O45S 000240 
6427 
6428 
6429 
6430 O4D4E0 113760 
6431 040456 005060 
6432 O40472 012760 
6433 O40500 012760 
6434 046506 O00004 
6435 
6436 
6437 
6438 
6439 
e440 
6441 
e442 
6443 
e444 
6445 
6446 
6447 
B448 
6449 
6450 O40S10 
6451 040510 005737 
6452 040514 001406 
6453 040516 100002 
6454 040520 000137 
E455 O405e4 012737 
6456 040532 112737 
6457 040540 012737 
p4se O40e4 012737 
E459 O405S4 012737 
460 O40562 012706 


Ne ero 
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000010 
001234 


001126 
O0ilee 


001164 
001164 


. 001164 


001174 
001174 
001124 


000010 


000000 
000000 


MOV SBDDAT,STMP4 § ;COPY ’BAD DATA’ 
BIC #ATA, STMPY CL EAR THE MASKED BITS 
BIS STMP4,S$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 52 “TYPE MESSAGE S2 
COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
7738: NOP 
;CLEAR ATTENTION BIT FOR PORT A 
MOVB § PORTA RPCS2(RO) “SELECT PORT #A 
CLR RPDS1URO ;SEIZE THE DRIVE 
MOV #11, bored (RO) ISSUE DRIVE CLEAR 
MOV #13, RPCS1(RO) ; RELEASE THE DRIVE 
33: SCOPE LOOP ? 
5 RELLKEKLELAK EEL LLE ELE LEELA ALERE RL AAR ERLE LER EEL LR RLLE LEE LEL ETERS 
jATEST 32 TEST PORT ’B’ TIMEOUT DOES NOT RESET DRIVE 
HIVERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
ii A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O°S INTO RPDSI. 
i B. WRITE 1°S INTO RPER1 THROUGH PORT ’B’. 
*% (C. WAIT FOR THE DRIVE TO TIMEOUT. eNERIEY THAT THE DRIVE RETURNED TO 
i NEUTRAL; THAT ATTENTION IS SET FOR PORT "B’ AND IS NOT SET FOR 
i PORT 'A’: AND THAT BOTH PORTS SEE 1’S IN THE ERROR REGISTER. 
‘ i  aposeaayescmgape oe aimee peopel art eisemagiernn pt ge 
" TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
BEQ 2g *BR I 
BPL 1$ BR IF JUST ENTERED TEST 
_ IMP EXEC RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1, kyBCTL SET SINGLE TEST INDICATOR 
23: MOVB  #32.$TSTNM ; TEST NUMBER 
MOV #TEST32,$LPADR ;LOAD LOOP ON TEST ADDRESS 
Hoy ‘ ES 136, $L PERR ;LORD, COOP ON ERROR ADDRESS 






























TEST PORT °A* TIMEOUT DOES NOT RESET DRIVE 
76S: NUP 


5p RRA RH HEAR EAA E EAA R EEE RARE EE LEER EE EEE EEE ER ERE REE RARE AREER 
THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 


MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR on 
CLR CKERR’ ;CLEAR THE en ERROR’ INDICATOR 


MOV RPDS1(RO),S$BDDAT’ ;GET CONTENTS OF RPDS1 
MOV #RPDS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR "ADD RH11 BASE ADDRESS 


CLR SGODAT :WHAT REGISTER SHOULD BE 
MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO *STMPO’ 
BIC #tCATA, STMPD SAVE SPECI FIED BITS 

CMP $GDDAT,$TMPO ° ;COMPARE THE BI 

BEQ 775 BR IF OK 


M : ITERATIONS 
TEST32: MOV actack SP + ORD THE STACK POINTER 


- 


ee NS ae ND ee ee 





me me ee 
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DIRJEA.SMB « C2-Nov-7E 18:45 32 TEST PORT "8° TIMEOUT DOES NOT RESET DRIVE 
ues 
° 135 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
B44 O40S66 113760 001224 900010 MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
ues Oudervy 05060 O00012 CLR ROS TRO} tSEIIE THE DRIVE 
5 049800 012760 900011 900000 MOV S11,RPCSI(RO) ISSUE DRIVE CLEAR 
B47 040506 91 260 ppo813 pore MOV #13-RPCSI(RO) RELEASE THE DRIVE 
5 040614 Ll lees O0001 MOVB PORTB,RPCS2(RO) :SELECT PORT » < 
6453 O40622 005060 000012 CLR ——- RPOSI TROD) SEIZE THE ORIVE THROUGH PORT ‘ce’ 
BY7D «O40S26 632760 800011 ooco00 MOV B11,RPCSI(RO) ISSUE DRIVE CLEAR 
6471 O40634 O12760 000013 o0c090 MOV 813;RPCS1(RO)  :RELEASE THE DRIVE ; 
ese ss FRERELESESERELESEEESESES EEE ERE ESSER SEEEEE EE SEESSERERESE ESSE SES 
Bie ;SEIZE THE DRIVE THROUGH PORT B 
5476 C4042 113760 001226 o00010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
8477 940650 0137 poise 00123¢ MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
é478 O4DEs6 90051 CLR RPDS: tRO) : RPD 
e173 043662 013737 OO0l22e4 001240 MOV PORTA, OPPRT OPPOSITE’ PORT ADDRESS 
§4e! 5% LETAEFS SLE FSRPELEFLTE LEH REE KEES SELLE RESLERPEREL ELS SESS LE ESESE SES 
pve >FORCE AN ERROP 
a O40E7D 012760 177777 OO00014 MOV 8-1,RPERI(RO)  ;SET ERROR BITS 
Beis ‘: FPESERFSLSHSLESLESSREFSLESFARELHSESSLELFREL LES PERE FSS ELSEPSS ESOS 
BYE? :START THE TIMER 
6489 940676 005037 001252 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
6490 O40702 012737 003720 o012S4 MOV 82000.,WATCH  ;SET WATCH TO 2000 MS 
£491 O40710 113760 OOl224 900010 MOVB  PORTA,RPCS2(RO) ":SELECT PORT A 
6492 040716 013737 OOl2e4 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
bsS4 33 SELSELASESHESSSSSLAALLS LSHEALSSASALE FRA SAE LSARHSLLSAASFSASLAREE 
ae :WAIT FOR DRIVE TO TIMEOUT 
£497 puo7e4 005760 coool2 18: TST RPDS1(RO) ;WAIT FOR THE DRIVE TO BE RELEASED 
£459 001004 BNE *BR IF DRIVE RELEASED 
6499 O40732 005737 O01254 TST WATCH :WATCH AT ZERO ? 
6500 940736 001372 BNE 1$ ; 
E501 por 104036 os ERROR 36 ‘DRIVE NOT RELEASED WITHIN 2 SECONDS 
6503 O4074S 113760 001226 oofolID MOVB = PORTB, (RO) ;SELECT PORT 
6504 049750 413797 O0l226 001234 MOV PORTB: PTNGR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6506 ge SELERERALLELSKLERHKKSSLAAESRAAELELREASRELESAKEASELARSAARE ARSE REE 
b507 *THE ERROR BIT (’ERR’) IN RPDS] SHOULD STILL BE SET 
c sCLEAR THE 'CHECK ERROR’ INDICATOR 
Eetg buares Brenae poet 001126 ae RPOSL( ),SB0DAT’ ; T CONTENT OF RPDS1 
6511 012737 000012 OOliee MOV 1 ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
pele be0037 ADD RO ADD RH $s 
1 1 j 901124 MOV #ERR T ;WHAT GIs SHOULD BE 
6514 4101 013737 il 1is4 MOV SBODAT.STMPO ’ ; GIs R CONTENTS TO ’STMPO’ 
6515 O41016 37777 OOLIEY BIC 8tcy STMPO ;SAVE SPECIFIED BITS 
6516 041024 023737 001124 O01164 CMP SGODAT,StMPO ;COMPARE THE BITS 





eee eo ee = o. 





es | 
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DERJEA.CMB ‘O2-NOV-76 18:49 T32 TEST PORT '8' TIMEOUT DOES NOT RESET DRIVE 
Sy RIGS QS pee poy = BY 
ra 
Bet Suiess Bigcas Bouse Soll ae Seopa. ele re PRSKED BITS 
6520 41050 7? OO1174 001124 BIS STMPY. is :*OR’ WITH GOOD Bae FOR TYPEOQUT 
6521 O41 1 ERROR 23 : TYPE eee 3 
6522 041060 005137 oo1e44 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
b5e3 O41064 900240 66S: NOP 
BEES SSEHSSESSFASELELSSASSFLFSRALALALSLESERAEAES SALSA SSSLESSSLASSLEESS 
£525 tue ERROR REGISTER SHOULD CONTAIN 1’S 
Fesg 041066 005037 001244 *CLEFR THE "CHECK ERROR’ INDICATOR 
6529 041072 016037 14 001126 MOV RPERI (RO) SBODAT" “GET CONTENTS OF RPER1 
6530 O41100 012737 14 OOll2e MOV 1,S$B0ADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6531 41108 060037 0011 ADD RO, SBDADR ";ADD_RH11 BASE RODRESS 
6532 O4lll2 012737 1 001124 MOV 8177777, $GODAT ;WHA™ REGISTER SHOULD BE 
6533 041120 023737 001124 OOllet CMP SGODAT,$BDDAT IS THE REGISTER OK ? 
6524 O41l26 601403 BEQ 68S :BR IF OK 
6535 041130 104010 ERROR 10 j REPORT THE ERROR 
6536 O41132 005137 oc1e44 CKERR “SET THE REGISTER COMPARE ERROR INDICATOR 
6537 041136 O00c40 68S: NOP 
6539 ; et ek bl ts aE gb itt a tat alee 
beue ; THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 
6542 041140 005037 001244 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
6543 O41144 016037 O00012 001126 MOV RPDS1(RO).$BDDAT’ :GET CONTENTS OF RPDS) 
6544 O411S2 012737 O000le OOlieze MOV 8RPDS1 SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6545 O41160 060037 ODll22 ADD RO, SBDADR -ADD RH11 BASE ADDRE' 
cESE Ovt14 12737 001124 MOV sATA.SGDDAT ;WHAT REGISTER BE 
6547 0411 1 Nate 001164 MOV SBODAT,STMPO " ;:MOVE REGISTER CONTENTS TO °STMPO’ 
6548 ov i1e00 042737 077777 OO1i64 BIC stCATA, THEO sSAVE SPECIFIED BITS 
£549 041206 | 001124 OO1J64 CMP SGODAT; -C THE BITS 
6550 041214 eat 14 BEQ 70$ :BR IF OK 
6551 041216 013737 001126 001174 MOV SBDDAT,STHP4Y  :COPY "BAD DATA’ 
6552 041224 042737 100000 001174 BIC SATA, STMPY “CLEAR THE MASKED BITS 
£553 Dilese 001174 6Ol124 BIS STNP4, T  3°OR’ WITH GOOD DATA FOR TYPEOUT 
6554 O41 104041 4} “TYPE MESSAGE 41 
6555 O¥le42 005137 o01244 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
6556 O41e% 000240 708: 
6557 
6ss9 5 RERERRRAEEE EER EE RR REEEEEEE ERE R EEA E EERE REE EEE EER ERE 
fee a5 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
bees aS 1250 901259 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
1 nee 2 o01122 MOV BRPOS1.SBOADR  ;FORM THE ADORESS OF RPOS1 FOR TYPEOUT 
rece ulsee Storer BUSS oom = ae pee 
cer bile fire Blom GEE Fala Bana Gen eeT Mntn 
1 1 001170 MOV RPDS R ) i ORIVE’ STATUS REGISTER FROM PORT A. 
1310 01 1 1164 MOV T Serenoem 
131 1001 1164 BIC wate RI STheO, T NT BITS FROM THE COPY 
6571 bil 3e4 113760 001226 10 MOVE SELECT 
6572 041332 016037 000012 001172 MOV PORTE RPCSE(RO) {SE HE ORIVE’ STATUS REGISTER FROM PORT B. 





D10 


DERIEALERE "O2-NOv"7b 1B:4B Tas | TEST PoRT ‘B" trmeOuT Does NOT RESET GRIVE. 





6573 1340 13737 = 172 ant MOV STMP3, STMP sCOPY IT INTO 'STMP1’ 
1 ? 1166 BIC BATANYY STH} CLEAR PORT BEPENDENT BITS FROM THE COPY 
Br ploy p73” 001164 OO11G6 CMP $inPO, StHP1 i]s THE TATUS REGISTER THE SAME FROM BOTH PORTS ? 
6577 041264 737 O01164 TST TMPO TERS ARE THE SAME: ARE THEY ZERO ? 
6578 bats 1045 BNE ug i Re 
£579 Bi137¢ 104 ERROR :REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
6580 041374 5 $ 041574 J *BYPASS THE REST OF THE CHECKS 
581 41400 O13 37 001170 001126 72$: Mov MP2,S$BDDAT  ;SET UP POSSIBLE DATA FOR ERROR MESSAGE 
fees uiuis tized polsee QodoIO ve Fonte RPCEE(RO) SSELEGT PORT Beet) SONS DRIVE NOT IN NEUTRAL 
poe puliee 0S/ 37 001164 TST $InPO’ iste SEE IF St STATUS EQ 0 FROM PORT A. 
bees Dita B1353> folie dotise NOV. STHPS’ SBOGRT aT a na = 
6588 O41444 113760 001224 090010 MOVB PORTA’ RPCS2(RO) SEL Ech PORT 
589 Oise 005737 001166 st My MP1" SEE IF STATUS EQ ZERO FROM PORT B. 
BS Bist fie ion Bi OR Ele, ie tatnees  noToaro 
B33 sath 012760 000013 o00000 MOV 813, *RPCS1(RO) j RELEASE weIVE - 
fee GEM Giger on1170 ores 7s: HOV Siwpe,seponT LOX FOR BIT, FRILURES WHEN RPOSI READ 
6597 041520 042737 100000 001170 BIC TA. $TMP2 ‘DON’T CHECK THE ATTN BIT 
6598 041525 35335 001124 901170 CMP Oe ye ALL BITS OK ? 
feo DMiese | souaRe ERROR 9 dar eanre rent A 
eens ae Blige OO1I7e OOllee 755: OY Tra. SpOGAT «CHECK RPDS! FORIT FAILURES - FROM PORT B. 
6603 O41554 042737 100000 001172 BIC #ATA, $TMP3 *DON’T CHECK THE ATTN BIT 
6604 041562 023737 001124 001172 CMP SGDDAT,STMP3 § :SEE IF READ OK FROM PORT B. 
| 6605 041570 OO14O1 BEO 76$ “BR IF OK 
6606 041572 104007 ERROR 7 REPORT ERROR 
| 6607 O41574 Oode40 76$: NOP 
£093 o SESELSSLERLFASLAAELSEESSLAELLERREARELE RELL ALELALEASLESEEL ASHE SE 
| £619 ‘tHE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 
b6l2 041576 113760 O01224 000010 MOVB PORTA, RPCS2(RO) ;SELECT PORT 
| $613 O41604 013737 OOree4 O0les MOV PORTA,PTNBR ;MOvE PORT aboness TO LOCATION FOR TYPEOUT 
| 6614 O41612 005037 001044 CLR CKERR’ sCLEAR THE 'CHECK ERROR’ INDICATOR 
| 6615 O41616 016037 12 001126 MOV RPDS1(RO), SBODAT’ :GET CONTENTS OF RPDS1 
6616 041624 12737 12 OOllee MOV sFORM REGISTER ADDRESS OF ERROR MESSAGE 
| 6617 O41632 il ADD RO "ADD RH11 BASE ADDRESS 
| BBIS Baigas prarae BOLtSe oo1leN ot schon IRE REGISTER COMTENTE TO *STHPO" 
| ae, Patees Diera? eae BIC CATA’ STHPO sive Spec Bits 
: + A 
6621 041656 001124 OO1164 CMP TMPO THE BITS 
bbe 1664 bOL414 BEQ *BR IF OK 
1666 O1 001126 001174 MOV :COPY "BAD DATA’ 
6624 041674 Bie? 7 001174 BIC BATA, STMPY *CLEAR THE MASKED 
|  bbes o4170 1174 001124 BIS a STHPA, j OR” On WITH GOOD DATA FOR TYPEOUT 
ees Batat bee03s 001244 COM CKERR pes re REG STR COMPARE ERROR INDICATOR 
| beeB OMI7I6 000240 77$: NOP 
| 
' 
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001226 000010 
O0le 





oS 
tl 


sadaaee 


qeenaaa 


a ee eee 


ASS SSRAI APRA RAS 
PEPPLISEEE? 


ooo00-o 
0p bo 


3 


& 
3 


SAE AS 


;CLEAR ATTENTION BIT FOR PORT B 
MOVB pence nee sSELECT PORT #B 


CLR SitRO sSEIZE T THe DRIVE 
MOV cil “APESt RD i FSSUE ELEASE PRIME ORI Shive 
3: SCOPE LOOP ? 


5 EREREREEERRERR ESLER EE REE LE EERE ARES EEE RE EE EE SEER EASES SEALE ESE 
sit TEST 33 TEST RELEASE THROUGH PORT ’A’ WITH ERRORS SET 


HAVERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


H 
i A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDSI. 
33 B. WRITE 1’S INTO RPERI THROUGH PORT 'A’. 
*# C. ISSUE A RELEASE COMMAND THROUGH PORT °A’. VERIFY THAT THE ’GO’ 
2 BIT hag RESET THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
i THAT RPERI HAS NOT BEEN CLEARED. 
ii D. CLEAR RPERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’A’. 
:% £. ISSUE A RELEASE COMMAND THROUGH PORT ’°A’. VERIFY THAT THE DRIVE 
ii RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
i Sweetie OEE mec gas pleeemera ne cpr uneem nN EO 
"ST KYBCTL RFORMING ONLY SINGLE TESTS ? 
ae Pvt 
BPL I :BR if UST 1 ENTERED TEST wae 
IMP EXEC RETURN & T NEXT TEST NUMBE 
1$: MOV #-1, KYBCTL :SET ae Ae TEST INDICATOR 
23: MOVB  #33,§TS TEST NUMBER 
MOV STEDTS3,SLPAOR j : LOOP ON TEST ADDRESS 
MOV STEST SUPER sL ON ERROR ADDRESS 
MOV -5$ : ITERATIONS 
TEST33: MOV #STACK, SP CORD THE STACK POINTER 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB TA,RPCS2(RO) ; T PORT #A 
CLR itRo) THE DRIVE 
MOV #11, RPCS1(RO) S TSSUE DRIVE CLEAR 
MOV 13 RPCS1 (RO) THE DRIVE 
MOVB tB (RO) reer #8 
CLR RPOS1 (RO) DRIVE THROUGH PORT ’B” 
MOV #11, RECS1 (RO) ; ISSUE DRIVE CLEAR 


MOV RPCS1(RO) L 
, , HnnaaoaSanuNHSESOESS ENS NEEASEEEETEEESEADEEYEREEEEEEEAEEEEEE 
;SEIZE THE DRIVE THROUGH PORT A 












e2 013737 


ue 
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6685 O4ei02 113760 O0lee4 
110 013737 001224 


faa eel el OH b= bs Re eho 


1S: 
MOVB BoRTB. Recse »BpCseCRO? rovd POR oo 
MOV "AOORESS TO LOCATION FOR TYPEOUT 
CLR CKERR’ CHECK ERROR’ INDICATOR 
MOV RPOS1(RO) sopoar’ CE CONTENTS OF RPOS1 
MOV #RPOS1.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO SBOADR "ADD RH11 BASE ADDRESS 
CLR SGODAT WHAT REGISTER SHOULD BE 
CMP SGDDAT,SBDDAT 31S THE REGISTER OK ? 
BEQ 68S *BR IF OK 
ERROR 24 : TYPE ie oeaee 

we Con CKERR :SET REGISTER COMPARE ERROR INDICATOR 
MOVB PORTA, RPCS2( RO) T PORT 
MOV PORTA; PTNBR Drove POR BbaT AboRESS TO LOCATION FOR TYPEOUT 
CLR CKERR’ CLEAR THE 'CHECK ERROR’ INDICATOR 





TEST RELEASE THROUGH PORT °A’ WITH ERRORS SET 





MOVB —- PORTA, RPCS2(RO) ;SELECT PORT A 
MOV coat SEIZPT ; STORE | SEIZING PORT’S ADDRESS 


CLR 
MOV B, OPPRT ;’OPPOSITE’ PORT ADDRESS 


© FELLKARLERA LALLA RS AELARAAA LALA RASA AAAS RERE LRA RESELL AAASEFELELES 
FORCE AN ERROR 


MOV #-1,RPERI(RO)  ;SET ERROR BITS 

















MOV #13°RPCSI(RO)  ;ISSUE A RELEASE COMMAND 
CLR CKERR ‘CLEAR THE *CHECK ERROR’ INDICATOR 
MOV RPCSI(RO),SBDDAT’ :GET CONTENTS OF RPCS1 
MOV #RPC sFORM REGISTER ADDRESS ig ERROR MESSAGE 
ADD RO :ADD RH11 BASE ADDRESS 
MOV #4012, SGDDAT ;WHAT REGISTER SHOULD BE 
MOV TMPD ° ;MOVE REGISTER CON CONTENTS TO ’STMPO’ 
BIC stC401e.STMPO ;SAVE SPECIFIED BITS 
CMP »$TMPO «6 S COMPARE THE BITS 
BEQ IF OK 
MOV *COPY BAD DATA’ 
BIC #4012, $TMPY “CLEAR THE MASKED BITS 
BIS STMPY;SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 25 *TYPE MESSAGE 
ioe con CKERR >SET THE REGISTER COMPARE ERROR INDICATOR 
TST DID ’GO’ BIT RESET ? 






CKERR 
+6 





MP is 

MOV 8CLR, RPCS2(RO) 

MOVB = PORTA, RPCS2( RO) 
PORTA’ PTNBR ; Move PORT mORESS TO LOCATION FOR TYPEOUT 

MOV #13, RPCSI CRO) sRELEASE THE DRIVE THROUGH PORT A 

IMP 2s *BYPASS THE REST OF THE TEST 


: LERIFY THAT DRIVE 16 STILL SEIZED EY PORTA 
*VERIFY THAT DRIVE IS STILL SEIZED BY PORT : 







LE 
MOV RPERI(RO),SBDDAT’ ;GET CONTENTS OF RPERI 
MOV ag 1 SE0/OR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $8 ;ADD RH11 BASE ADDRESS 








6751 O4e474 


012760 


oor 
ts we 


20-900-oR0 
eae 
SasRReREs 
Rp ee 


daeee 


3} 
B 


4 


- 
1! 


a 


a 


Seen: 


! 


a 


attackers JE-A, » BURL CONTRA. ,oaee TES 
ie 7 


C777e 
1124 


001244 


be 


= 


Bees 
Ban 
88883888 
FEAST eS 


2 





dol ise 


000910 
001234 
000000 


S 
= 


2 

cool 
2 

oO 


Soeee 


ge 
5 


88 
= 


70S: 


jE EEE ESE EE EER EER ERLE EE EEE 
: ALEAR THE ERRORS THROUGH PORT A 


5 RISER EERE REE EERE EEE ES EERE AE EEE EERE LEER EES 
;RELEASE THE DRIVE FROM PORT A 


738: 


74S: 


T- Bo 1 MACY! 


TEST 


MUV 
CMP 


MOV 


MOVB 
MOV 
MOV 


27( p05) PAGE 123 
LEASE THROUGH PORT ‘A’ WITH ERRORS SET 






O2-NOV-76 18:42 
LEA MLSE RM 


tim 
KERR iB ; Ofek Teg aon COMPARE ERROR INDICATOR 











#11,RPCS1(RO)  ;ISSUE A DRIVE CLEAR 






PORTA,RPCS2(RO) ;SELECT PORT A 
PORTA;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT 


THAT THE DRIVE IS IN NEUTRAL 


ERR sCLEAR_ THE *RELEASE ERROR ’ INDICATOR 
1,$BDADR FORM THE ADDRESS OF RPDS! FOR TYPEOUT 

j AbD THE I/0 BASE ADDRESS 

'PGM! DPR! DRY! VV scooar s COMPARISON CONSTANT 

PORTA. RPCS2(RO) ; SELECT POR 

1tRO) $TMPe ;GE PORIVE” STATUS REGISTER FROM PORT A. 

2, STMPO coe IT INTO *STMPO’ 

VV. STMPO ; CLEAR Port DEPENDENT BITS FROM THE COPY 


; SELECT PORT B. 
MP3 ser Spy oF Ont ort ye grea REGISTER FROM PORT B. 


#ATA! VV, STMPI EO EAR PORT. SEPENDENT BITS FROM THE COPY 
STMPO, STMP1 21S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
















725 BR I 
STHPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 

46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 

76S sgYERSS REST OF THE CHECK 

STMP2, SBDDAT T UP IBLE BAD DATA FOR ERRCR MESSAGE 
PORTS, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


I 
;SELECT PORT B. 
;SEE IF STATUS EQ O FROM PORT A. 


I 
IZING ay! IF_TEST sis DRIVE NOT IN NEUTRAL 
FAD DATA TA. ERROR TYPE OUT 


T POR 
cee Ferns EQ ZERO FROM PORT B. 
#-1,RELERR : ERROR’ INDICATOR 
it’ SRPCSI(RO)  ;CLEAR IVE 
#13, RPCS1(RO) jRELERSE THE ORIVE 


MP2, SBDDAT iL 0ok Sor FOR 6 BIT 1 PRILURES WHEN RPDS1 READ 
PORTA, PTNBR sCHANGE PORT NUMBER 
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OZRJEA.CMB  ‘O2-NOV-76 18:40 T33 TEST RELEASE THROUGH PORT 'A’ WITH ERRORS SET 
6757 042774 023737 O0lie4 001170 CMP SGDDAT , STMP2 ;ALL BITS OK ? 
6798 043002 ons BEQ gos ;BR_IF_OK FROM PORT A. 
6799 043004 104 ERROR REPORT ERROR 
6800 aired Bis? 32 001172 001126 75S: MOV SNPS, pooper : CHECK Rene FOR BIT FAILURES - FROM PORT 8. 
6801 SC14 013737 OCle26 001234 MOV PORTB: PTNER CHANGE PORT NUMBER 
6802 043022 D011e4 O0l172 CMP SGDORT, STMP3.  ;SEE IF READ OK FRCM PORT 6. 
6803 043030 901401 BEQ 76$ :BR IF _OK 
6804 043032 104007 ERROR 7 REPORT ERROR 
680S 043034 000240 768: NOP 
et) 043036 O00004 es: SCOPE ;LO0P ? 
£808 s treet ay TEST RELEASE THROUGH PORT °B’ ITH ERRORS GET 
§809 j ATE TEST RELEASE THROUGH PORT ’B’ WITH ERRORS SET 


ary A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 


6810 
6811 

Ble 3 TS ARE SET IN THE DRIVE. 

fae ii SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING O’S INTO RPDS1. 
Pets i# . WRITE 1°S INTO RPERL THROUGH PORT ’B’. 

6818 *# C, ISSUE A RELEASE COMMAND THROUGH PORT ’B’. VERIFY THAT THE ’GO’ 
6819 x BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
peed i THAT RPERI HAS NOT BEEN CLEARED. 

bBce : : D. CLEAR RPERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’B’. 
6824 *# £. ISSUE A RELEASE COMMAND THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
6825 if RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

6827 H © SEALEAERAARRS ALA LEAL SE AALLEA ALA RE RARER ALES ELES SEER ASK E RHA EAE REE 

6828 o43040 +6734: 

6829 O43040 005737 001274 TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 

6830 043044 001406 BEG 2s BR IF NOT 

6831 043046 sogoge *BR IF JUST ENTERED TEST 

6832 043050 000137 oDe602 IMP EXEC *RETURN & GET NEXT TEST 

£833 043054 012737 177777 001274 1S: MOV #-1, KYBCTL *SET SINGLE TEST INDICATOR 

6834 O43062 112737 000034 001102 25: MOVB #34; STSTNN TEST NUMBER 

6835 043070 012737 O43112 001106 MOV #TEST34,SLPADR :LOAD LOOP ON TEST ADDRESS 

6836 043076 012737 O43lle 001110 MOV STEST SH SLPERR LOAD LOOP ON ERROR ADDRESS 

6837 043104 012737 001176 MOV #4000. »STINES *:D0 4000. ITERATIONS 

6838 O431l2 012706 001100 TEST34: MOV #STACK, SP LOAD THE STACK POINTER 

pao * sCLEAR ATTENTION BITS FOR BOTH PORTS 

6842 O43116 113760 001224 000010 MOVB PORTA, RPCS2(RD) ;SELECT PORT #A 

6843 043124 005060 O000ie2 CLR itRO) : THE DRIVE 

Beue puatae 15760 boOOT? | poDDoD MOV. #La°RPCETCRDD HRELERGE The Give 

684 043144 tT tS7ED nates Bp0010 MOVB PoRtE S2(RO) sSELEC PORT rt 

6847 043152 005060 O0000!e CLR RPOS1 (RO) IZE THE DRIVE THROUGH PORT °B’ 

6848 043156 012760 000011 op0000 MOV #11,RPCSI(RO) ISSUE DRIVE CLEAR 

6849 043164 012760 000013 000000 MOV ( L T I 

pay sgesnasenleusestitbeesaicctenakertecttostioce:. Genenssesssneaue 

6852 ;SEIZE THE DRIVE THROUGH PORT B 


(rte oe cee en ce SE SE ES eR A SS 
' 
i 








125 
-CMB = O2-NOV-76 18:49 T34 TEST RELEASE THROUGH PORT ’B’ WITH ERRORS SET 


gas3 
Peee use00 ie es 3 Boi eae nov Rone ei ssf Sth PORT’S ADDRESS 
Brees? Beiee5 ooreuo SiN OBORTACOPPRT ©» EAGPPOSTTE?“PorT ADDRESS 


6253 | © SLRKFKEAELLAA FAA AAL RRL ARKAAREAAAARARARALSRRAA LAA A LARA AAAALERFZEE 
860 *FORCE AN ERROR 

bee gee 912760 177777 000014 MOV RPERI(RO)  ;SET ERROR BITS 

ey bes oe Regret) Te REE CORE orcane 
5865 RPS (RO) sB00AT’ er CONTENT OF RPCS1 

6B66 1,$B80ADR ;FORM REGI “tbe ADDRESS _OF ERROR MESSAGE 


MOV 
CLR 

6867 il ADD Hie sADD RHI 

passe0 poo Ole 001124 MOV oe $GDDAT suits REGISTER SHOULD BE 
6869 043266 013737 001126 001164 MOV pat. $T MOVE REGISTER CONTENTS TO *S$TMPO’ 
6870 043274 Bie? 37 3765 001164 BIC EON $THPO ; Save ITS 
6871 043302 1124 001164 CMP 
6872 043310 001414 BEQ ‘BR IF OK 
6873 Oiz312 01 001126 001174 MOV SBDDAT,STMP4Y  ;COPY ’BAD DATA’ 
6874 o4 l2 001174 BIC #4012, STMPY *CLEAR THE MASKED BITS 
6875 043326 053737 001174 001124 BIS STHPS, ; SGDDAT ; OR. WITH GOOD DATA FOR TYPEOUT 
pe7e ay eae 001244 COM CKERR ioe EF SBECISTER COMPARE ERROR INDICATOR 
6878 O43342 000240 66$: NOP 
6873 3344 005737 001244 TST CKERR :DID 700. BIT RESET ? 
6881 passee Beas 043412 fits is 7A FF AN BIT TRESET 
6882 043356 O01 900040 000010 MOV #CLR,RPCS2(RO) ;INIT THE RuLI 
6883 043364 11 001 000010 MOVB  PORTB,RPCS2(RO) *:SELECT PORT B 
6884 043372 013737 O0l2c6 001234 MOV PORTB’PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6898S O43400 O1 000013 000000 MOV #13,RPCS1(RO) sRELEASE THE DRIVE THROUGH PORT B 
6886 O43406 000137 O44126 JMP 2s *BYPASS THE REST OF THE TEST 
Gop FR bbbghadabebd taba tateh tah bth db tabbed th-tt- tad tedel- fab tad tlalalalalalalahalalebalalalalalalalalale 
£889 ecRIFY THAT DRIVE IS STILL SEIZED BY PORT B 
Feat 1 1S: 
case aE 901224 000010 MOVB —— PORTA, RPCS2(RO) SELECT PORT 

043420 0012204 001234 MOV PORTA, PT sHove, FO T ebORESS 1 TO LOCATION FOR TYPEOUT 
6894 043426 poles nat CLR CK KERR) sCLEaR Te THE CH CK ERROR’ INDICATOR 

ise ue RPDS 

Pear aia erat bO1le2 MOV RPSL SBORER FORM einer) RODRESS. 0 oF ERROR MESSAGE 
6897 043446 001122 ADD RO 
6898 CY34S2 001124 CLR SGODA THAT REGISTE SHOULD BE 
6899 001124 


001126 CMP SGDDAT , SBDDAT THE en OK ? 
eas at 


roo 


SERITRBRASS 
aes 


001244 69s: on EKERR ty Ye rESEOOE COMPARE ERROR INDICATOR 


NOP 
Bisse Borss4 Hove Porte: PT (ROMO ve BOR ebonesé TO LOCATION FOR TYPEQUT 


001244 CLR TO NCLE HE *CHECK ERROR’ INDICAT 


Booai4 | BpLLse HOV Rin Sear aE). TENTS Ore BF ERROR MESSAGE 


anes 
SRsiaskees 


i DUAL CONTRLR LOGIC TEST -_PART 1 MACY11 27(1006) O2-NOV-76 18:42 PAGE 
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OZRJEA. "02-NOV-76 18:49 T34 TEST RELEASE THROUGH PORT ’B’ WITH ERRORS SET 
ea ry nee “90112 122 ALD RO, SBDADR ADD _RH11 BASE ADDRESS 
77777 «(001124 MOV #177777, $GDDAT WHAT REGISTER SHOULD BE 
001124 001126 CHP $GDDAT, , $BDDAT iis THE REGISTER OK ? 
3H le Se ERR Art 
l ey i igi ROR 10 REPORT THE ERRO 
6914 043556 605137 o01244 COM CKERR SET THE REG ESTER COMPARE ERROR INDICATOR 
b316 043562 900240 70$: NOP 
6317 © ELLER AE RA LHL LARA LALARRKRALHALASAA DEA LRA LARAAAEA AES ELE L ERAS EELERE 
318 tALEAR THE ERRORS THROUGH PORT B 
3c 043564 012760 000011 900000 MOV #11,RPCS1(RO)  ;ISSUE A DRIVE CLEAR 
Pass : 5 RERAAALAA KLEE ERA A REL RARE RE LEE RAE LKEEARELE LALA LE RE RE LERERELE ELE 
b3cd sRELEASE THE DRIVE FROM PORT B 
6926 043572 113760 001226 000010 MOVB = PORTB, RPCS2(RO) -SELECT PORT B 
6927 043600 013737 OOlec6 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
p28 043606 012760 o00013 o00000 MOV #13, RPCSI TROD * s ISSUE RELEASE THROUGH PORT B 
6830 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
6932 043614 001250 CLR RELERR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 
6933 04 012737 OO000l2 oDl122 MOV #RPDS! SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
6924 043626 001122 ADD RO, $BD ; ADD THE 1/0 BASE 
6935 04 012737 011700 001124 MOV andl PG? DPREORY'! VV, SGDDAT ;COMPARISON CONSTANT 
6936 043640 113760 001224 000010 MOVB PORTA. RPCS2(RO) ;SELECT PORT’ 
6937 943646 016037 000012 001170 MOV poner thos STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
6938 O43654 013737 001170 001164 MOV STMP2, STMPO *COPY IT INTO ’STMPO’ 
6939 042737 100100 001164 BIC ani. STMPO CL EAR PORT. DEPENDENT BITS FROM THE COPY 
6940 043670 113760 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 
6941 043676 016037 000012 001172 MOV RPpsi tose SInPS GET THE DRIVE STATUS REGISTER FROM PORT B. 
6942 043704 013737 001172 001166 MOV TMP3, STMP1 :COPY IT INTO *S$TMP1’ 
6943 043712 042737 100100 001166 BIC #ATA'VV.STMP1 | 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 6944 043720 023737 001164 001166 CMP STMPO, STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
6945 043726 O01006 BNE 725 NOT 
Ps 043730 005737 001164 TST TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| 6847 043734 OD104S BNE $ BR IF NOT 
6948 043736 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
| 6949 043740 900137 outed IMP 76$ *BYPASS THE REST OF THE CHECKS 
6950 043744 013737 001170 001126 72S:  § MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| 6951 O4 013737 OO0l226 001234 MOV PORTE, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 6952 OW 113760 O0le26 O000i0 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 
| §953 043765 905737 001164 TST STMPO ‘SEE IF STATUS EQ O FROM PORT A. 
| 6954 043772 001414 BEQ 735 *BR IF ZER 
| 6955 043774 013737 001224 001234 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
Pe & pune 013737 00117 001126 MOV TMP3,SBDDAT _; BAD bara’ FOR ERROR TYPE OUT 
695 i0 ii 1224 000010 MOVB PORTA, RPCSe(RO) *SELEC 
' 6958 O44016 005737 OD1166 TST MPL *SEE IF STATUS EQ ZERO FROM PORT B. 
| §959 o44022 bo101¢ BNE BR IF NOT 
| 6960 O44024 O01 177777 001250 73$: MOV #-1,RELERR *SET ’RELEASE ERROR’ INDICATOR 
| Bees Bawpse BiS7eo po00rs | pooo0D Noy sil. POCeT IRD) TRERERSE THE DRIVE 
Bers Bavode 10%0eB ERROR 26 ;TYPE ERROR MESSAGE 26 
| 6964 O440S0 013737 001170 001126 74S: MOV STMP2,SBDDAT | ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
l a 
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OZRJEA.CNB  "O2-NOV-76 18:49 T34 TEST RELEASE THROUGH PORT ’B’ WITH ERRORS SET 


4056 013737 O0lee4 O 
eeee BYNES 0 0 


MOV PORTA, PTNBR cA PORT NUMBER 
oof 001124 L BITS OK 


4 
0 CMP SGODAT, STMP2 
BEQ 75$ BR Bi ok PKon PORT 9. 


gee OoF ERROR : REPORT BRE 
4C7E O13737 001172 001126 758: MOV STMP3, pron CHECK R a] Ap BIT FAILURES - FROM PCRT B. 















7019 ;SEIZE THE ORIVE THROUGH PORT A 
7020 


6970 O44104 737 O0l226 001234 MOV PORTB; PTNBR :CHANGE PORT 
p37 4112 923737 001124 O01172 cH Scoot, $TMP3 iSEE IF READ OK am PORT 8. 
6973 O44le2 104007 ERROR 7 ‘REPORT ERROR 
6974 O441e4 O50240 76$: NOP 
6975 O44ic6 OO05C4 23: SCOPE LOOP ? 
Ego3 
6378 H itecT ae TEST TIMEOUT RETRIGGER THROUGH PORT ae 
379 ; #TE TEST TIMEOUT RETRIGGER THROUGH PORT ’A’ 
5981 HAVERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
6983 ii A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
b385 33 6. WAIT SOO MS AND WRITE O’S INTO RPDS1 THROUGH PORT ’A’. 
6987 7% C VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED 
6388 i TIME. (THE MEASUREMENT IS MADE FROM STEP ’B’.) 
6990 *% D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
6331 i BIT IS SET. 
3593 ® RBH HEHEHE HEHEHE EHBEHBEHE HEHEHE GHEE HEHE HEEB 
6994 944130 t$735: 
699S 044130 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
699 O44134 001406 BEQ 2s *BR IF NOT 
6997 O44136 100002 BPL 1$ *BR IF JUST ENTERED TEST 
6998 044140 002602 JMP EXEC *RETURN & GET NEXT TEST NUMBER 
6999 O44144 012737 177777 001274 1S: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
7000 o441S2 000035 O01102 2%: MOVB #35; STSTNM TEST NUMBER 
7001 O44160 o44202 001106 MOV #TEST35,SLPADR ;LOAD LOOP ON TEST ADDRESS 
7002 O44166 012737 O44202 001110 MOV #TEST35.SLPERR ;LOAD LOOP ON ERROR ADDRESS 
7003 O%4174 012737 Oo0004 001176 MOV #4, STIMES DO 4 ITERATIONS 
7004 O44202 O1e706 001100 TESTIS: MOV astAck, SP *LOAD THE STACK POINTER 
7008 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
7008 O44206 113760 001224 o00010 MOVB PORTA,RPCS2(RO) ;SELECT PORT #A 
| 7009 O44e14 000012 CLR RPDS1(RO) : SEIZE THe DRIVE 
7010 O44220 012760 000011 oo0000 MOV #11, APCS (RO) ISSUE DRIVE CLEAR 
701 044226 012760 13 000000 MOV #13°RPCS1(RO) ; RELEASE THE DRIVE 
7012 O44234 113750 001 000010 move  PORtB RPCSe(RO) SELECT #8 
{ 7013 o44e42 o00012 CLR RPDS1 (RO) ter toe THE DRIVE THROUGH PORT °B’ 
| 7014 O44 012760 000011 opo000 MOV #11, RPCSI(RO) ISSUE DRIVE CLEAR 
7016 044, 012760 000013 900000 MOV #13;RPCSI(RO) RELEASE THE DRIVE 
| at tA 5 5 RRREREEAE KEELES EEE REAR RE EERE LAER REA A LEAKE ARR AA RAL KARRRERELE 
| 
! 
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DZRJEA.CNB =‘ O2-NOV-76 18:49 T3S TEST TIMEOUT RETRIGGER THROUGH PORT ’A’ 




















137 1224 00001 MOVB PORTA, RPCS2(RO) <-SELECT PORT A 
ree oH 276 ol Ee 88 ob ee nee | HOV PO Rta) Se stone fe aebet PORT’S ADDRESS 
g pausoe sere SOT ose 001240- MOV PORTB, OPPRT OPPOSITE” PORT ADDRESS 
7026 $ RRKKR EEL LEAL LE EE REAR ER EER EER ELERER LE EERE RE REESE LE LEEEERE REELEE 
7027 hart coo MS 
7028 
oe SLE LE KREE LEK LHL ERLE KEELE RF ERLE REEF EK ELE LEK LE LEE EELS LES FREE ELLA ESE 
7031 aT ART THE TIMER 


7033 ous 005037 001252 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
7034 O44314 012737 O00764 001254 MOV #500. , WATCH sSET WATCH TO SOO MS 
7035 (44322 005737 001254 13: TST WATCH WATCH EQUAL TO ZERO 
7036 044326 001375 BNE 1$ BR IF NOT 
7028 5 ae ee ea ee re 
7033 START THE TIM 
7041 044330 005037 001252 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
7oNe 044334 012737 003720 001254 MOV #2000.,WATCH § ;SET WATCH TO 2000 MS 
7044 : © SLLKL HEL AKEK KEK LA ESAKE LKR LE HEE K EKER EE SA AARERA RA LAA RA ARES AKA SERE 
7045 *RETRIGGER THE TIMEOUT ONE-SHOT 
opas o44y34e 005760 op0012 TST RPDS1(RO) sRETRIGGER THE ONE-SHOT 
7048 O44346 113760 001226 oD00010 MOVB  PORTB,RPCS2(RO) *:SELECT PORT B 
7049 044354 013737 O0le26 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7050 044362 760 O0001e 23: TST RPDS1{RO) sWAIT FOR TIMEOUT 
7051 044366 O01004 BNE 33 ;BR IF TIMEOUT OCCURRED 
044370 005737 001254 TST WATCH ; WATCH H EQUAL TO ZERO ? 
7053 044374 001372 BNE 2s NOT 
7054 044376 104035 ERROR 36 NO TIMEOUT WITHIN 2 SECONDS 
7055 O44400 013737 oO01252 001272 3S: MOV TIME, TIMES *SAVE THE ELAPSED TIME VALUE 
7057 5 5 RARER EEE EE EKER AER EERE EERE EERE EERE REE EEE EERE EE 
5 beg sVERIFY THAT THE DRIVE IS IN NEUTRAL 
aOE 001250 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
7062 O444i2 012737 O000l2 op1122 MOV #RPDS1,S$BDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
7063 060037 O01122 {90D THE 1/70 BASE ADDRESS 
7064 O44424 012737 011700 001124 MOV #MOL!PGM! DPR! ORY! VV, SGDDAT }GOMPARISON CONSTANT 
7065 113760 001224 OO00i0 MOVB PORTA RPCS2(RO) ;SELECT POR 
7066 01 oo000i2 001170 MOV RpDS1tRO) STMPe ;GET FHE OR ORIVE STATUS REGISTER FROM PORT A. 
7067 13737 001170 OO1164 MOV STMP SrHeD COPY IT INTO T 
7068 O444S4 100100 001164 BIC #ATA Ath STMPO CLEAR PORT NOENT BITS FROM THE COPY 
| 7069 113760 001226 000010 MOVB  PORTB, RPCS2( RO) jSELECT PORT 
| 044470 016037 O000i2 001172 MOV RPOs| RO $TMP3 ;GET ihe DRIVE STATUS REGISTER FROM PORT B. 
7071 7% 013737 001176 001166 MOV 3, STMPL -COPY IT INTO °STMP1' 
| S04 042737 100100 001166 BIC omni STHP! *CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 044512 023737 001164 001166 CHP SHPO, ,StMPL 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
| 7075 O445e2 005737 01164 TST STNPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| 7076 O44526 O01045 BNE 68S :BR IF 





[SR ac 
7077 
7078 
ri l 
7081 O44€S2 113760 O0ieeb 


7082 O44560 005737 001164 
7084 O44S66 013737 001224 


4 
7095 044656 023737 O011e4 


4007 
70 70 013737 001172 
7099 044676 013737 OOleeb 
7100 023727 001124 


7108 044720 023737 001272 
7109 O44726 003004 
044730 023737 001272 


NNINNNSNNNGN 
2 Bs 2 bP he bh 
en ee ee ee ee ee ee ee 
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1 O44744 
7132 044744 005737 001274 
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Oo234 
00 


0019 


001234 


001250 
000000 
000000 


001126 


001234 
001170 


001126 
001234 
001172 


001260 
001262 


Mi 


TEST TIMEOU RETRIGGE GGER THROUGH PORT ’A’ 
ERROR Bs pated ove ott", an rhe gr NOT SEIZED 


OS 
ees: Tv. BORTBSPNaR lat Sa ee em 


MOV8  PORTB,RPCS2(RO) ; 


IST SHPO" Fs Irs oRTUe: EQ 0 FROM PORT A. 

MOY PORTA, PTNER SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

MOV STMP3,SBDDAT  ;’BAD ATA’ FOR ERROR TYPE OUT 

MOVB § PORTA,RPCS2(RO) ;SELECT PORT A 

IST STHPL iBEe IF STATUS EQ ZERO FROM PORT 8. 
67$: MOV #-1,RELERR :SET RELEASE ERROR’ INDICATOR 

MOV Ht *RPCS1( 0) “CLEAR THE DRIVE 

MOV #13; RPCS1( "RELEASE THE 

ERROR 33 ;TYPE ERROR MESSAGE 22 
68$: MOV STMP2, SBDDAT LOOK FOR BIT FAILURES WHEN RPDS1 READ 

MOV PORTA, PTNSR CHANGE PORT NUMBER 

CMP ScoDAT, STMP2 of; ? 

BEQ 69S *BR IF OK FROM PORT A. 

ERROR 7 ;REPORT E 


695: MOV STMP3, SBDDAT ;CHECK RPDS1 i BIT FAILURES - FROM PORT 8. 
PORTB,PTNBR : CHANGE PORT N 
CMP SGDDAT, STMP3 SEE IF READ Ok PROM PORT B. 
70$ :BR IF OK 
ERROR 7 : REPORT ERROR 
70S: NOP 


5 EEKKEK EERE HHI EE EEE EEE EAE HELE EE EE EERE EEE EE EEE EERE EER EEE 
t AHECK THE TIME FROM RETRIGGER TO TIMEOUT 


CMP  =s-« TIMES, TIMEAP ; HE RSURED 3 GREATER THAN +25% TOLERANCE ? 


BGT 4 H 

chp TINES, TIMEAM MEASURED TINE LESS THAN -25% TOLERANCE 
4S: ERROR 25 “REPORT THE ERROR 

SCOPE ‘LOOP ? 


H pret ae TEST TIMEOUT RETRIGGER THROUGH PORT B'S 
jATE TEST TIMEOUT RETRIGGER THROUGH PORT ’B’ 


THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RPDS1. 
B. WATT SOO MS AND WRITE O’B INTO RPDS1 THROUGH PORT ’A’. 


C. YeRIFY THAT THE TIMEOUT OCCURS WITHIN + OR - he OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP ” 


D. verity cet THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


O nepetamene apemaagtct: erp sean remananancree ns camumat mes 
TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 


DC DIK DRC OK IC DK ic 9K iC 2c 
































DZRJEA.CMB ‘O2-NOV-76 18:49 T36 TEST TIMEOUT RETRIGGER THROUGH PORT ’B’ 


71 a ree rant Bb Fi ies IF IF F UST ENTERED TEST 
000 002602 IMP RN & GET NEXT TEST NUMBER 
He See fiers betes OB AE Wile ELI HEL ei et helen 
045016 Ob ? MOV STESTIE, $LPADR ;LOAD LOOP ON TEST ADDRESS 
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01 
7139 pisons 9ie737 O45016 00111 MOV WIEST 36, SLPERR ;LORD LOOP oN N ERROR ADDRESS 
7140 045010 012737 000004 001176 MOV STIMES : ITERATIONS 
gil 18 012706 001100 TEST36: MOV aatack, SP +EORD THE STACK POINTER 
gis ;CLEAR ATTENTION BITS FOR BOTH PORTS 
7145 o4s022 113760 001224 o00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT #0 
714e 5030 oocc60 o000le CLR RPDS1tRO) : SEIZE E DRIVE 
714 5034 012760 000011 oo0000 MOV wit, RPCSI (RO) ; ISSUE ae CLEAR 
7148 O45042 O1278N 000013 o00000 MOV #13°RPCSI(RO)  :RELEASE THE DRIVE 
7149 O450S0 113760 OOle26 O00010 MCVB PORtE RPCS2(RO) :SELECT PORT #8 
7150 oO45056 005060 o0001e CLR RPDS1{RO) SEIZE THE DRIVE THROUGH PORT ’B’ 
7151 045062 012760 OO9011 op0000 MOV #11, speed (RO) ISSUE DRIVE CLEAR 
site 045070 012760 000013 000000 MOV #13;RPCS1(RO)  $RELEASE THE DRIVE 
oize $ 5 RERKKE ELLA KELL LAER AE RLERE LE EERE RE LE RE RRA ERE REERRAE LEE REE RE ELE 
715 ;SEIZE THE DRIVE THROUGH PORT B 
7158 O45076 113760 001226 00010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B 
7159 O45104 013737 OOl226 OUless MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
7160 O451i2 OOSObC oDo0D1e2 CLR RPDS1{RO) iW RPDS1 
lbh 045116 013737 OO01224 oo1240 MOV PORTA, OPPRT "OPPOSITE? PORT ADDRESS 
tes } LOS ago gpermanesnimerrmparencnenae eemery mapas EXXHKRAXKKEEE 
sige 
7167 3 © SELES ALEA ALAA AKA ERK ALAA KLEE REAR EARLE KARE KSLA YF RAZ RELE EKA LLKEKAEE 
ate a TART THE TIMER 
7170 045124 005037 001252 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
| 7171 045130 012737 00764 o01254 NOV #500. ,WATCH SET WATCH TO SOO MS 
7172 045136 005737 001254 1S: TST WATCH WATCH EQUAL TO ZERO 
| 7173 045142 901375 BNE 1$ BR IF NOT 
7175 © SKLAR AARE REFERRAL ELA RRA AAE AAS RA LAER ALA RAR ARARAL AAA RRL AAEA LRA ARE 
717 a TART THE TIMER 
| 7178 O4S144 005037 o01252 CLR TIME CLEAR THE ELAPSED TIME COUNTER 
7179 O451SO 012737 003720 ool1es4 MOV #2000. , WATCH icet WATCH TO 2000 MS 
| 7181 | © REAKKA KERALA AA RALEREEE KARA LAER KRA AS AA RAR ARAL HRA AAAS ELLRARE 
| rie  RETRIGGER THE TIMEOUT ONE-SHOT 
| 7184 O4S1S6 005760 oDD012 TST RPDS1(RO) ;RETRIGGER THE ONE~SHOT 
' 7185 O4Si62 1137 001224 000010 MOVB PORTA, RPCS2(RO) SELECT PORT A 
| 7186 045170 013737 001204 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS T0 LOCATION FOR TYPEOUT 
7187 045176 005760 o000l2 2$: TST RPDS1tRO) sWAIT F 
7188 O45202 001004 BNE 3 :BR IF TIMEOUT HOCURRED 
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? ANECK THE TIME FROM RETRIGGER TO TIMEOUT 


nm 
s 
wry 


MD~12-D2 2-NO : 
DERsEa.tMB  “Oe-NOv-7 18:43 rae. | TEET“TrReOUT RETRIGGER THROUGH PORT °B> 
7189 O45204 O0ST37 001254 ToT WATCH HATCH EQUAL TO ZERO ? 
7180 O45210 00137 BNE BS 188 IF N 
7131 45212 104036 2 ERROR 36 :NO TIMeOUT WITHIN 2 SECONDS 
sik O45214 013737 001252 o01272 38: MOV —s TIME, TIMES ;SAVE THE ELAPSED TIME VALUE 
3183 5 RRRSRESSAESALELEREAERLLELELLES SELLS EAE RELL SALLE SELALLELELS LEFEES 
1% ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
7198 o4S222 O0SOS7 001250 CLR = RELERR CLEAR THE "RELEASE ERROR ’ INDICATOR 
7183 45226 912737 000012 o011e2 MOV RPDS, SBDADR ;FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
7200 «O45234 060037 001122 ADD $BDA jAb0 THE I/0 BASE ADDR 
7201 O45240 012737 011700 001124 MOV atiOl GM: DPREDRY Y!VV,SGDDAT _;COMPARISON CONSTANT 
Tete O45246 11 001224 000010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT’ A. 
7e03 O45254 01 p90012 001170 MOV - RPDS1tRO). STMP2 GET THE DRIVE STATUS REGISTER FROM PORT A. 
7204 O4S262 01 001170 O01164 MOV 2 Y IT INTO 'STMPO’ 
7205 O4Se70 042737 100100 001164 BIC wATATWV,STMPO «CLEAR 7PORT_ DEPENDENT BITS FROM THE COPY 
7205 045276 113760 001226 000010 MOVB  PORTB, RPCS2(RO) ; SELECT 
: 7207 O¥5304 O16037 000012 O01172 MOV Reps {Ro} STMP3 ;GET THE BRIVE’ sTaTus REGISTER FROM PORT 8. 
7208 O45312 012737 001172 001166 MOV T 1 COPY IT INTO STi 
7209 Bue sen 33 100100 oOO1166 BIC sATA'WV,STMP1 © :CLEAR POR T DEPENDENT BITS FROM THE COPY 
7210 045326 Bop ap OO11E4 OOLIES CMP 86s STMPO, STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
7ell 045334 001006 BNE «BES :BR IF NOT 
7el2 045336 005727 001164 TST § §TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| Zel3 O45342 001045 223 BR IF NOT 
| Fela OMS344 104046 ERROR 4 REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
| 7215 O45346 000137 Quss3e IMP 70S BYPASS THE REST OF THE CHECK 
| 7216 O¥53S2 013737 001170 001126 G&S: MOV § STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| 7217 O45360 013737 001226 001234 MOV.  PORTB,PTNBR __—«s ; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 7elB O45366 113760 O0 ert 000016 MOVB  PORTB}RPCS2(RO) ;SELECT PORT B. 
| 72818 045374 057 Z OO1164 IsT STHPO’ j SEE IF STATUS EQ 0 FROM PORT A. 
55 Bueube 01 001224 001234 MOV BORTA, P PTNBR SF Pines BORT IF_TEST SHOWS DRIVE NOT IN NEUTRAL 
| Tee 19 O17 37 001172 001126 MOV. $TMP3;SBDDAT _ ;*BAD DATA’ FOR ERROR TYPE OU 
| 7223 16 il 001224 o00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT A. 
| 7ees O¥6¥24 005727 001166 TST = $TMP BEE HF Bt STATUS EQ ZERO FROM PORT 8. 
' 7225 045430 00101 Sr ie 
| 7225 045432 O01 177777 001250 678: MOV § a-1,RELERR ;SET RELEASE ERROR’ INDICATOR 
| 7227 O4S440 012760 000011 000000 MOV  - #11;RPCSI(RO) CLEAR THE DRIVE 
| 7228 O45446 012760 000013 000000 MOV  S13;RPCSI(RO) RELEASE THE DRIVE 
| 7229 OHeusH Ogee TYPE ERROR MESSAGE 22 
| 7200 545456 OL 901170 001126 68S: HOV STuPe,SEO0AT LOOK FOR SIT, FAILURES WHEN RPDS1 READ 
«732 piste ea92 373 001124 001170 CMP , STMP2 SAT BITS. OK “KN 
«783 OoL401 BEQ BR IF OK FROM PORT A. 
| 7234 o4s502 i ERROR REPORT ERROR 
| 7235 O45504 013737 001172 001126 69S: MOV a ;CHECK RPDS1 FOR BIT FAILURES - FROM PORT B. 
| 5 fp bol iss boli72 CAP ScOUAt SIRE ‘ee TF REA READ 5 OK FROM PORT B. 
ae Bubeoe 1401 eo . : 1F ok 
| 7239 045530 104007 ERROR 7 REPORT OERROR 
| 7240 O45532 000240 70$: NOP 
F<) - SLFSLESRESRESKESLELEAEASAALAARELAAAAAL RARE SAARSAARA SLA SRERAAARE 
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DZRIEA.CMB  ‘Oe-NOV-76 19:49 136 TEST TIMEOUT RETRIGGER THROUGH PORT 'B’ 
7245 ONSS34 023737 001272 001265 CMP TIMES,TIMESP  ;MEASURED TIME GREATER THAN +25% TOLERANCE ? 
7e46 pussie a GT ug :BR IF GREATER 
> oo127e 001270 CMP TIMES, TIMEBM | ;MEASURED TIME LESS THAN -2S% TOLERANCE 
74g O455S2 002001 GE +4 :BR IF NOT 
7e49 O45554 104025 ug: ERROR 25 !REPORT THE ERROR 
7250 O45556 00004 SCOPE ‘LOOP ? 

7251 
7252 
7254 EHSL ERSEPSEDERSHELELA SPF EE LEEP SEH CPBELELELELELELE SLE LES SSL ESE LESSEE 
7258 4 EST 37 TEST PORT 'A’ ATTENTION AFTER A COMMAND 
7257 : 
7258 TEST ThE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
7259 i COMMAND . 
sept ie A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’A’. 
oe * 6B. AIT FOR THE RECALIBRA TE COMMAND TO COMPLETE (’DRY’ TO BECOME 
7264 te 1°), VERIFY THAT ATTENTION BIT FOR PORT ’A’ IS SET AND 
7265 i THAT THE ATTENTION Bt FOR PORT ’B’ IS NOT SET. 
tee % C. RELEASE THE DRIVE THROUGH PORT 'A’. VERIFY THAT THE DRIVE RETURNED 
7eee i TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
7270 : SSSFFSASSASESSSEREEASSELE SEAL EL ALLE FLAS RE LE LES ELA LEA RL KAHE REEL AEFS 
| 7271 O¥S560 +8137: 
| 772 O45560 005737 001274 TST —«KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
| 7273 OYSSEY 001406 BEQ 2s BR IF NOT 
7274 O4S556 iogage BPL 1$ BR IF JUST ENTERED TEST 
7275 045570 000137 002602 IMP ss EXEC RETURN & GET NEXT TEST 
| 7276 012737 177777 001274 1S MOV 8-1, KYBCTL :SET SINGLE | TEST INDICATOR 
| 727? 116737 po0037 001102 MOVE «#37, STSTNN lao Cae 
| 7278 10 012737 001106 MOV 8TES737, SLPADR LOOP ON TEST ADDRESS 
| $568 faecds 815553 Booese darise MOV MSTEMEST  itDonu STEROTIONS eee 
| $5er Saeese 018706 O01] TEST37: MOV -sSTACK, Ba THE STACK POINTER 
| 7283 CLEAR ATTENTION BITS FOR BOTH PORTS 
es 1 000010 MOVB PORTA. RPCS2(RO) ; T PORT 
| 7286 Maar eye: CLR —- RPOSI[RO) THe DRIVE 
| 7287 O4SE50 = 900011 po0000 MOV #1 Bd RPCS1(RO) tTSSuE DRIVE CLEAR 
| «FS Bieeee ti 43 et vate HOVE rate a AOR o) ; T POR 7 
7583 pieeee rennet) CLR _—- RPOSI TRO 4 THe DRIVE THROUGH PORT ’B’ 
| 7291 eran 012760 900011 oo00c0 HOV Hae STSSUE OR Tie brie 
| 9585 Buests fiS5e5 Borees pocoio Hove PORT REETEeT PORT A 
| 7e94 045720 013737 O0lec4 001234 MOV PORTA, PTNBR Ronove PORT aODRESS TO LOCATION FOR TYPEOUT 
| 76% 045726 013737 OOlec4 001236 MOV -—«~PORTASSEIZPT ’ ;'SEIZED’ PORT ADDRESS 
Ls : = SSEEEEKELELERRSSRESREAKSALE RE RELHS KSLA RSA RE RAE LATS ERS LLAERERKE 
| 768 tho A A RECALIBRATE THROUGH PORT A 
| 7300 045734 012760 000007 oD0000 MOV 87,RPCSI(RO) | ;ISSUE A RECALIBRATE INSTRUCTION THROUGH PORT A 
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re 3 SSSLAEASSASASLAFLSSHARSSSSSARSAS SALSA SEASERESRARL FLEAS L SSE SLEES 
3393 :WAIT FOR DRIVE TO FINISH 
7 o4s742 032760 ocd200 o00n12 BIT SDRY,RPOSI(RO) ;WAIT FOR DRIVE TO FINISH 
7306 045750 001774 BEQ .-6 "BR IF NOT FINISHED 
7308 st PEESFSESELES FELLAS HS ESEE EERE SALT EESEL ELISE REESE LE SRE REF SA SF EELESSE 
7303 :ONFIRM THAT ATTENTION IS SET FOR PORT A 
1 1 CLR CKERR CLEAR THE ’CHECK ERROR’ INDICATOR 
sai Baesee 016037 rete 001126 MOV RPDSI(RO), SBDDAT’ :GET CONTENTS OF RPDS1 
7313 4 012737 000012 Odllze2 MOV 8RPDS1.SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ait ere Siler TESS oy § = NIRS RGEOar_ ultracet habe 
7316 O46004 pi eeas 001126 cage MOV SBDDAT,STMPO ° nHOVE Rate CONTENTS TO ’STMPO’ 
7317 O460le 042737 077777 OO1164 BIC STCATA,STMPO ;SAVE SPECIFIED BITS 
7318 623737 001124 OO1164 CMP SGDDAT,S$TMPO ° ;COMPARE THE BITS 
7319 046026 001414 BEQ 64S *BR IF OK 
732u 046030 013737 001126 001174 MOV SBODAT,STMPY  :COPY "BAD DATA’ 
7321 O46036 O04. 100000 601174 BIC SATA, STMPY >CLEAR THE MASKED BITS 
732 peo 953737 001174 001124 BIS STHP4, SCDDAT 708 WITH GOOD DATA FOR TYPEOUT - 
7224 46054 12035 001244 a con CKERR SET TE Be Sister COMPARE ERROR INDICATOR 
535 OaebES = eat 001226 900010 "  MOVB- ~=—s PORTB,RPCS2(RD) ;SELECT PORT B 
7307 046070 013737 00 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
; 73293 gs FRELEESELFELSSSES ESHA LE LE LHS ELE SERS SSLELAPRASLELEL HSH ELE LES ELE 
| 7300 :CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 
7232 046076 005037 001244 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
7333 046102 016037 000012 001126 MOV RPDSI(RO),SBDDAT’ :GET CONTENTS OF RPDS1 
| 7334 O46110 012737 000512 001122 MOV #RPDS1.SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
| ae bees tear Bou Sassen Hate SOD ee 
| 535 Die lee ee pBtise 001168 HOV SE008T, STMPO iMOVE REGISTER CON S TO ’STMPO’ 
533 belie per, BG 1124 potted CMP Se50AT' STHPD ‘ COMPARE T atts 
| 7340 O46150 001414 BEQ 66S *BR IF OK 
7341 bye 15. D1 001126 001174 MOV SBODAT,STMPY § ;COPY "BAD DATA’ 
| 7342 pel ae 1 001174 He SATA, STMPY *CLEAR MASKED BITS 
| 7343 166 atest 001124 5 STMP4,S$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
| 7344 O46174 104032 ERROR 32 : TYPE HESSAGE 32 
| 7345 046176 005137 001244 COM CKERR ?SET THE REGISTER COMPARE ERROR INDICATOR 
73H O46202 000240 665: NOP 
| 738 s 5 LAELELALELELLLLESLESLELELLELE RE LLALLELERE ELA RAR EARLE ALA LA ELAR 
| 7350 SRELEASE THE DRIVE FROM PORT A 
1 001 0 MOVE PORTA,RPCS2(RO) ;SELECT PORT A 
| ee Baeste Ai3 OSS seer MOV PORTA’ PT nove PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 7354 O46220 012760 000013 MOV #13,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 
| rae sVERIFY THAT THE DRIVE IS IN NEUTRAL 
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7357 
7358 O46226 005037 001250 CLR RELERR sCLEAR THE RELEASE ERROR ’ INDICATOR 
$355 Guesae pen03? Oolies ee BoD ORO. $80 aCe Te Agures OF crus FOR TYPEOUT 
7361 Oubetd 1 011700 001124 MOV aMOL! PGM! DPR! DRY! VV } .PORPARTSON CONSTANT 
730 it iy esis Sorta Hove pone tRDS eTHES sSELECT DRIVE. STATUS REGISTER FROM PORT A. 
Stee te Bee ed aon FS oBeh ars aon co 
cae piescs tee 450190 eet VB PORTB MS by »? ET PORT 
7367 046310 016037 dooo12 001172 MOV RPDSILRO). STMP3 ; eit fr OR VE, STATUS REGISTER FROM PORT B. 
7368 O46316 O01 001172 901166 MOV STMP3, STMPL 0 *STMP 
7369 O4632% 042737 100100 001166 BIC 8ATAIVV, STMPI EP EAR POR T OEPENDENT BITS FROM THE COPY 
7370 O46332 023737 OO1164 O01166 CMP STMPO, St ITS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
7371 O46340 001008 BNE 68S BR IF NOT 
7372 O46342 001164 TST STMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
7373 Dies 1045 BNE 70S ;BR IF _NOT 
7374 OAOMe ERROR 46 : T DRIVE NOT IN NEUTRAL OR NOT SEIZED 
nie % 1170 001126 68% wv cre i 3 Poss TBE oF sie, CHECK ERROR MESSAGE 
Hy Geen fie Bie mum oo: my Eire mor Ieee FSS tae RII Sime 
7378 O4637e 113760 OOle26 onn010 MOVB § PORTB.RPCS2(RO) ;SELECT PORT 
7379 O46400 001164 TST STMPO :SEE IF STATUS EQ O FROM PORT A. 
7360 O46404 001414 BEQ 693 BR IF ZERO 
7381 O¥ENO 013737 001224 001234 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7382 14 013737 O01172 001126 MOV STMP3,SBDDAT ;’BAD DATA’ OUT 
7383 O46422 113760 001224 000010 MOVB PORTA, RPCS2(RO) :SELECT PORT A 
7384 046430 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
7385 O46434 001012 BNE 70$ *BR IF NOT 
728 O46436 012737 177777 001250 69%: MOV #-1,RELERR *SET ’RELEASE ERROR’ INDICATOR 
7387 O46444 Sere 900011 000000 MOV #11;RPCSI(RO)  ;CLEAR T IVE 
7288 O464S2 O01 000013 000000 MOV 813'RPCSI(RO) RELEASE DRIVE 
o3e5 pueues fnarae er SF TOK FOR BIT PRI URES 
7390 1 001170 001126 708: MOV STMP2, SBDDA “LOOK FOR BIT FAILURES WHEN RPDS1 READ 
7391 046470 013737 poles dole34 HOY PORTA, PTNGR. i CHANGE PORT NUNBER 
533 paeeae rated BEQ see a. :BR if OK Pron PORT A. 
7394 046506 104007 ERROR 7 REPORT ERROR 
73% Ove510 13737 001172 001126 71S: MOV STMP3, T 5 CHECK CHECK REDS! FOR BIT FAILURES - FROM PORT 8. 
046516 O01 001226 001 MOV PORTB’ PTNBR 
7397 O4652e4 023737 OOlie4 001172 CMP $GDDAT, STMP3 SEE IF READ OK FROM PORT 8 
7398 O46532 001401 BEQ *BR IF OK 
7399 046534 104007 ERROR : T ERROR 
7400 046536 O00240 725: NOP 
| 7401 O46540 00004 SCOPE sLOOP ? 
7403 : ee eer PORT BY ATTENTION AFTER A COMMAND 
7404 jATE TEST PORT °B’ ATTENTION AFTER A COMMAND 
| Pape s STEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
| 7407 e COMMAND. 
| a ii A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’B’. 
| 74il ‘* B. AIT FOR THE RECALIBRATE COMMAND TO COMPLETE (’DRY’ TO BECOME 
| male * i *), VERIFY THAT THE ATTENTION BIT FOR PORT °B’ IS SET AND 
| 
' 
' 





a ce oe ne rn ED CET 





MO-11-D2 
DZRJEA 


7441 


SiRRERPRRRURADORMB SERRA EEATE 





LOGIC TEST - PART 1 MACY11 27(1006) Oe-NOV-76 18:42 PAGE 135 
O2-NOV-78 18:49 T40 


= 


4 


4 


: 


P= 9-4 b> G9 6-3 he 


Ss | SASS 


=H — 
GJ MMWwery 


aQa000-oa 


8 
ia) 
2 


—OO 
fps bee Be 


oOO0r-O00 
bt bb eh 


BE 


et 
3 


ror 


Oo 
§ 
4 
: 


8 
R 


BR2e— 
dade 
S888 88 
Soeh Re 


<= 
oe 
£ 


8 8 
BB 


2 
4 
cS 
= 
2 


TEST PORT *B’ ATTENTION AFTER A COMMAND 
THAT THE ATTENTION BIT FOR PORT °A’ IS NOT SET. 


% 
* 
# C. LEASE THE DRIVE THROUGH PORT ’°B’. VERIFY THAT THE DRIVE RETURNED 
* 5 RECTRAL AND THAT NETTHER ATTENTION BIT IS SET. 





° 
$ 
© 
’ 
° 
, 
. 
’ 


OO sect ag agpeteetery pe apepemenan an emirate ery steratiass 
TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
BEQ 2$ :BR if NOT 
BPL 1$ *BR IF JUST ENTERED TEST 
JMP EXEC - TRETURN & GET NEXT TEST NUMBER 
1$ MOV #-1,KYBCTL *SET SINGLE TEST INDICATOR 
23 MOVB 0; STSTNM * TEST 
MOV #TESTYO,SLPADR :LOAD LOOP ON TEST ADDRESS 
MOV #TESTHO SLPERR *LOAD LOOP ON ERROR ADDRESS 
MOV 84, STIME ?:DO 4 ITERATIONS 
TEST4O: MOV STACK, SP LOAD THE STACK POINTER 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,RPCS2(RO) ;SELECT PORT 8A 


CLR RPDS1tRO) *SEIZE THE DRIVE 

MOV #11,RPCSI(RO)  ;ISSUE DRIVE CLEAR 

MOV 813-RPCSI(RO) ; THE DRIVE 
PORTB,RPCS2(RO) ;SELECT PORT #8 

ey RUC ny ERE Leh Rn em OTe" 

MOV #13 Rpeet (Ro) RELEASE THE DRIVE 


) *-SELECT PORT B , 
MOV PTNBR  ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTB,SEIZPT ' ;'SEIZED’ PORT ADDRESS 


f , RERAEAELAE ELLE RELA EARARLA RESELL LALA REE LR ALE RE RE LEA A LAE LARELL EE 
0 A RECALIBRATE THROUGH PORT B 


MOV #7, RPCS1(RO) ; ISSUE A RECALIBRATE INSTRUCTION THROUGH PORT 2 


5p RERERELRE SEAR ELLE LLL ELAAL LASER ELAR LA RELL ELLA EERE LEAL ELE RE LEEE 
*WAIT FOR DRIVE TO FINISH 


BIT #DRY,RPOS1(RO) ;WAIT FOR DRIVE TO FINISH 
BEQ -~6 ;BR IF NOT FINISHED 


5, RERRERSLA EAA E LAL SLL LLA SLEEK ELLE LA LERAREAA SEAR EARLE L RE LLREL LE 
:CONFIRM THAT ATTENTION IS SET FOR PORT B 


CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
MOV “GET CONTENTS OF RPDS1 
HOV #RPDS1 . SBOADR sFORN REGISTER ADDRESS OF ERROR MESSAGE 


RO, SBDADR “ADD RH11 BASE ADDRESS 

MOV BATA, SGODAT ;WHAT REGISTER SHOULD BE 

MOV SBDDAT, ST =MOVE REGISTER CONTENTS TO ’STMPO’ 
BIC BtCATA, ST sSAVE SPECIFIED BITS 

CNP SGDDAT, $T 

BEQ 64 

MOV SBDDAT, STMPY 


;COMPARE THE BITS 





Gil 
Beadearehe “* oB-Nov<PE"Tasube’ TEST ~rGG*T | TREY ARE TBPOArrBRTION APTER A COMMAND ~~ 


? 0090 001174 BATA, STMPY sCLEAR THE MASKED BIT 
a 70 Bae Bse bss? ? : 88 ppt ed BIE SINPA, SUDOAT on? uly 00D Bad Por TYPEOUT 
Pe Bias 3 i 001244 in con CKERR :SET TE REGISTER COMPARE ERROR INDICATOR 
7474 047044 113760 001224 oD0010 "  MOVB ~=s- PORTA, RPCS2(RO) SELECT PORT A 
ae 0470S2 913737 O0l224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7477 gs KELAARELALASHAALEAALA AE LAERA LAER ALELAR LARA RARE AAS RARE AAR ELELEE 
oic8 ;CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 
rast Pree PORE BRIS corse SAF BSE ny, sapoor OU Cee te Eng, TERT 
7482 §+8038 le OOlle2 MOV BRPES $80) *FORM REGISTER ADORESS OF ERROR MESSAGE 
7483 047100 060037 ODl1l22 ADD RO, SBDADR : 11 BASE ADDRESS 
7484 047104 005037 001124 CLR SGDDAT *WHAT REGISTER SHOULD BE 
7485 047110 013737 001126 001164 MOV SBDDAT,STMPO = MOVE REGISTER CONTENTS TO ’STMPO’ 
7486 O47116 O04, 001164 BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
7487 047124 pass 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
7488 047132 001414 BEQ *BR IF OK 
7489 047134 Ot 001126 001174 MOV SBDDAT,STMP4Y § ;COPY ’BAD DATA’ 
7480 047142 100000 001174 BIC #ATA, STMPY : THE MASKED BITS 
7491 047150 053737 001174 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
7492 047156 104022 ERROR 32 *TYPE MESSAGE 32 
7493 047160 005137 oo1244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
ai 047164 000240 66$: NOP 
oug? s 5 REFRELLLELSLLELRE LEAS LEAL LLLALL LAL LLLLLALLLALLELELERE LE LAL ALLELE 
mie ;RELEASE THE DRIVE FROM PORT B 
047166 113760 001226 000010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
7501 047174 013737 OOlec6 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012760 000013 o00000 MOV #13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


Bue Rae Res 
2 
a 


005037 001250 CLR RELERR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 

| 047214 012737 ooo012 001122 HOV aRPDSI SBDAOR sFORM THE ADDRESS OF RPDS! FOR TYPEOQUT 
aoe Wea 11 001124 MOV anol? PGH: DPR! Ht 1 »BORPRR rth CONSTANT 

| 7510 ON7234 113760 1200 Bp00i0 MOVB PORTA a SSECECT PORT’ A. 

| veil ov7ede ot gg0012 90117 HOV RrDS1tRO)  STHPe Ger THE DRIVE, STATUS REGISTER FROM PORT A. 
| ei soo piss 164 BIC aara rw STMPO : CLEAR PORT SEPENDENT BITS FROM THE COPY 

| rete oi eee nee ff 10 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 

| 7531S O4 016037 000012 001172 MOV RPDS1(RO).STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
| 7516 OY 013737 001172 001166 MOV STMP3, STMP1 *COPY IT INTO °STMP1’ 

| 7517 047306 042737 400106 001166 BIC BATA'YV. STMP1 © 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
7518 ov7314 0237 37 1164 001166 CHP STHPO, TMP 1 5 THE ygyrTus REGISTER THE SAME FROM BOTH PORTS ? 
7520 ee 005737 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 

| 7521 047330 001045 BNE 70$ *BR IF NOT 

|e Beas teats ie" i Gees Fete bg SEIZE 
: 7524 047340 013737 001170 O01126 68S MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
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CMB O2-NOV-76 18:40 T4O TEST PORT ’B’ ATTENTION AFTER A COMMAND 
7525 O47346 013737 001226 001234 MOV PORTB, PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7526 O473S4 113760 001226 O00010 MOVB PORTE, RPCS2(RO) “SELECT PORT B. 
7587 bv7 abe 005737 OO1164 TST $TMPO SEE IF st STATUS EQ 0 FROM PORT A. 
? 001414 BEQ 95 *BR IF ZERO 
7529 047270 013737 001224 001234 MOV PORTA, PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7376 013737 001172 OO0l1c6 MOV STMP3,SBDDAT ;*BAD DATA ar OR ERROR TYPE SUT 
7531 O47404 113760 001224 O00010 MOVB PORTA, RPCS2(RO) ;SELECT PORT 
2 O47412 005737 OO1166 TST si MP1’ SEE IF ere TUS EQ ZERO FROM PORT 8B. 
7533 O47416 001012 BNE *BR IF NOT 
7334 geo ie? 77777 901250 69S: ov Pe ReLee : iSET Ap RELEASE ERROR’ INDICATOR 
7536 Bao ptee ee alee i MOV *RPCS1( RELEASE THE Drive 
7537 O47442 104026 ERROR sTYPE ERROR MESSAGE 26 
7538 O47444 013737 001170 001126 70S: MOV STH2, SBODAT  ;LOOK FOR BIT FAILURES WHEN RPDS1 READ 
7539 O474S2 013737 001224 001234 MOV PORTA, PTNBR *CHANGE PORT NUMBER 
7540 047460 023737 001124 001170 CMP SGDDAT,STMP2  ;ALL BITS OK ? 
7541 O47466 001401 BEQ -BR IF OK FROM PORT A 
7542 047470 104007 ERROR *REPORT ERROR 
7543 Ourire 013737 001172 O01126 71$: MOV STHP3, SBODAT  ;CHECK RPDSI FOR BIT FAILURES - FROM PORT B. 
7500 013737 O0l226 001234 MOV PORTB: PTNBR *CHANGE PORT 
7545 047506 023737 001124 001172 CMP SGDDAT,STMP3  ;SEE IF READ OK Bee PORT 8. 
7545 047514 001401 BEQ 72$ *BR IF OK 
7547 047516 104007 ERROR 7 ?REPORT ERROR 
7548 047520 O00240 723: NOP 
7549 047522 000004 SCOPE sLOOP ? 
oeey 
7552 ; ireer ai Test PORT INTERACTION FROM PORT A 
7353 sETEST TEST PORT INTERACTION FROM PORT ’ 
7555 ; AVERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
ree ii A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
ee ii B. WRITE 1’S INTO RPER1, RPER2, & RPER3 THROUGH PORT ’A’. 
rery :# C. READ RPERI 1, RPER2, & RPERS THROUGH PORT °B’. VERIFY THAT PORT 
7562 i "B’ SEES O'S FROM EACH OF THESE REGISTERS. 
ee is D. CLEAR RPERI, RPER2, & RPERS THROUGH PORT ’A’. 
ree ;# €. WRITE 1°S INTO RPERI, RPER2, & RPER3 THROUGH PORT °B’. VERIFY THAT 
rob is PORT “Ae SEES 0’S FROM EACH OF THESE REGISTERS. 
7569 *# F. RELEASE THE DRIVE THROUGH PORT 'A’. VERIFY THAT THE DRIVE HAS 
7570 2 SWITCHED TO PORT °B’ AND THAT THE ATTENTION. IT FOR PORT ’B’ IS 
77) 33 SET AND THE ATTENT ON BIT FOR PORT ’A’ IS NOT SET. 
7573 :# G. ISSUE A ASE THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
7574 ii RETURNED TO NEUTRAL THAT NEITHER ATTENTION BIT IS SET. 
a Ue | 7524 i | eran gE Agger De nam eres RECT ESITN im OS 
Lael 7524 005737 001274 TST KYBCTL ;PERFORMING CMY SINGLE TESTS ? 
7573 047530 001406 REQ 2¢ BR IF NOT 
7580 047532 100002 BPL 1$ BR IF JUST ENTERED TEST 





Se ae ee -- ee 
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Be RS BE TE oem pd cee SL ETP lee 
By te l Bote ie: MOVB rat StetHn if R 
SY 012737 047576 OO1106 MOV #TESTY1,SLPADR LOAD LOOP ON TEST ADDRESS 
c O12? oer 001110 MOV HTESTH1 SLPERR LOAD LOOP ON ERROR ADDRESS 
75 1 7640 O01176 MOV #4000.,$TIMES :;D0 4000. ITERATIONS 
7576 912706 001100 TEST41: MOV #STACK, SP :ZoAD THE STACK POINTER 
4 


;CLEAR ATTENTION BITS FOR BOTH PORTS 





7585 
7586 
7587 
7s 
733 oy7ege 113760 go12e4 000010 Nove PORTA RECSECADD s SELECT PORT #A 
aie RPDS 
oea5 047614 seas H00011 o00000 MOV #11,RPCS1(RO) Sa eat 
7594 O47622 O1e760 000013 000000 MOV #13, RPCS1(RO) iToue 0 THE DRIVE 
7595 047630 113760 001 000010 MOVB  PORTB.RPCS2(RO) ;SELECT PORT #8 
75% 047636 O05060 I CLR RPDS1{RO) :SEIZE THE DRIVE THROUGH PORT ’B’ 
7597 O47642e O01 000011 oo9000 MOV #11,RPCSI(RO) ISSUE DRIVE CLEAR 
7338 4 Ol 000013 900000 MOV #13,RPCSI(RO) RELEASE THE DRIVE 
700 ;SEIZE THE DRIVE THROUGH PORT A 
7602 O4 113760 001224 000010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT A 
7803 047664 013737 O0l2e4 001236 MOV PORTA. SEIZPT ;STORE SEIZING PORT’S ADDRESS 
7604 047672 005060 duoule2 CLR itRo) ;WRITE RPOS1 
7605 O76 76 013737 1240 PORTB, OPPRT ;’OPPOSITE’ PORT ss 
7605 047704 O1 l 14 MOV #-1,RPERI(RO) ;LOAD 1°S INTO RPERI THROUGH PORT A 
7807 047712 bie760 177777 O00040 nov a-1, RPERE(RO) :LOAD 1's INTO RPER2 THROUGH PORT 9 
ree Ba 7oe 11760 1226 $0818 MOVB PoRts, (RO) SELECT PORT 
7610 047734 O01 001226 001234 MOV PORTS’ PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7611 047742 004737 OSO600 JSR PC, TST41B sCHECK THE REGISTERS THROUGH PORT B 
76le O47746 113760 001224 0000 MOVB PORTA, RPCS2(RO) LECT PORT A 
7613 047754 013737 DO1ee4 001234 nov PORTA PTNBR ; HOVE T RODRESS 9, LOCATION FOR TYPEOUT 
| be 
7615 CLR Reena Ra) CLEAR RPE ON PORT A 
7616 OY 05060 000014 CLR RO) RPERI PORT A 
7617 OY 01 001232 o00016 MOV RCT PAS (RO) 6 TION BIT FOR PORT A 
7618 OSO004 113760 O0le26 000010 MOVB PORTB,RPCS2(RO) °-SELECT 
7619 050012 013737 O0lec6 001234 MOV PORTB. PTNBR eit PORT ADDRESS TO LOCATION FOR TYPEOUT 
ana bie7b0 1 000014 MOV #-1, RPER1 (RO) 1°S INTO RPERI THROUGH PORT B 
pepOSA BtesED teeeee Sere HOV 1 ERSRO) 10RD Sap te "3 IN INTO FERS THROUGH PORT B 
ita: Lisred onie4 o00015 nove Ate T T ATION FOR TYPEOUT 
| 
: pe Tetale rove Fo TGGPRE TO, 0 Na PORT A 


aa, THE DRIVE FROM PORT A 


BERSRRORGRR 
es 
Be 


1 1 0 (RO T 
Oe00%6 bi3rs? Obisey Soles HOV. PORTRLPTNGR ROVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7631 050076 O1e760 000013 000000 MOV #13, at A MOVE Se RELEASE THROUGH PORT 
E33 ;VERIFY THAT ORIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
7635 050104 005037 001250 CLR RELE’ jSLEAR "RELEASE ERROR’ INDICATOR 
7636 050110 012737 111700 001124 MOV SATA! HOL!PGM!DPRI DRY!VV,SGODAT ;COMPARISON CONSTANT 
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DZRJEA.CMB ‘Oe-NOV-76 19:49 TH TEST PORT INTERACTION FROM PORT 'A’ 
7637 Os0116 012737 p00012 o01122 nov #RPDSi ,SB0A0R sESTSTER OCRESE INCREMENT ae 
pet siete BBI ASE 000010 MOVB PORts, iesecn0 reece pat g 
7640 136 013737 O1226 001234 MOV “MOVE POR apbREse TO LOCATION FOR TYPEOUT 
7641 194 016037 OCOdle OOl164 MOV Pore e tay” ert READ orate REGISTER FROM PORT 8 
7642 OS01S2 113760 001224 O00010 MOVB POR TA,R RPCS2(RO) ':SELECT PORT 
7643 050160 913737 001204 001234 MOV PORTA’ PTNBR Dove? PORT apprese TO LOCATION FOR TYPEOUT 
7544 166 016037 O000le 001126 MOV RPDS1tRO), SBDDAT :DRIVE STATUS FROM POR 
7645 050174 001404 BEQ 66$ BR IF STATUS FROM PORT A ZERO 
7646 050176 095737 OO01164 TST STMPO 15 STATUS FROM PORT B ZERO ? 
7647 O50202 001401 BEQ 66S IF 
7648 050204 104031 ERROR 31 REP ORT RIVE IN NEUTRAL 
7649 050208 613737 O01164 001126 66%: MOV STMPO, SBDDAT § ;CHECK STATUS FROM PORT B 
7650 050214 013737 O0l226 O01234 MOV PORTB.PTN NBR *CHANGE PORT ADDRESS FOR TYPEOUT 
7651 023737 O0lle4 001126 CMP $GODAT, $B ; COMPARE WITH CONSTANT 
7652 050230 001401 BEQ 7§ 
7653 O50e32 104027 ERROR 27 REPORT REGISTER ERROR 
ee54 050234 o00240 67S: NOP 
gb5 ;RELEASE THE DRIVE FROM PORT B 
7658 050236 113760 001226 o00010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
7659 050244 013737 OOlece 001234 MOV PORTE, PTNBR  ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Peb0 oSc2S2 012760 000013 o00000 MOV 3,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 
7bh2 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
Mee 050260 005037 001250 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
7665 050264 012737 O000l2 O01122 MOV #RPDS1,SBDADR  :FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
7666 OSG272 060037 O01122 ADD RO ; ADD THE 1/0 BASE ADDRE 
7667 050276 012737 011700 o0112e4 . MOV #MOL'PGM!DPR!DRY!VV,SGDDAT _;COMPARISON CONSTANT 
7668 OS0304 113760 001224 O000i0 MOVB PORTA, RPCS2(RO) ;SELECT POR 
7669 050312 016037 000012 001170 MOV RPDS1(RO). STMP2 sGET Cay DRIVE STATUS REGISTER FROM PORT A. 
7670 050320 013737 001170 001164 MOV STMP2, STMPO :COP *STMPOQ’ 
7671 050326 042737 100100 001164 BIC BATAIVV.STMPO CLEAR ont SEPENDENT BITS FROM THE COPY 
7672 050334 113760 001226 O00010 MOVB  PORTB, RPCS2(RO) ; SELEC PORR B. 
7673 OS0342 016037 O000i2 001172 MOV RPDS1(RO).STMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
7674 050350 013737 001172 001166 MOV STMP3, STMPL “COPY IT INTO °STMP 
7675 050356 042737 100100 001166 BIC #ATA'VV,STMP1  :CLEAR PORT SePENDENT BITS FROM THE COPY 
767% 050364 023737 001164 001166 CMP STMPO, STMP1 TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
7677 059372 901006 BNE BR IF NOT 
| 7678 050374 001164 TS STMPO ; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ee pet tea ERROR Ges | NOT IN NEUTRAL OR NOT SEIZED 
| 7681 O504 bene? 70 725 BYPASS mf Veer ob THE CHECKS 
| 7682 O50410 013757 001170 001126 68%: MOV STMP2,SBODAT § ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| 7683 OS0416 013737 001226 001234 MOV PORTS, PTNBR > SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 7684 OS0424 113760 oules O00010 MOVB PORTE, RPCSe(RO) SELECT 
| 7685 OS0432 005/37 001164 TST STMPO -SEE IF eOR TUS EQ 0 FROM PORT A. 
7686 050436 001414 BEQ 69S “BR IF ZERO 
050440 013737 224 001234 MOV PORTA, PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 7688 OS0446 013737 001172 O01126 MOV STMP3,SBDDAT _ ;*BAD DATA’ FOR ERROR TYPE OUT 
| 7689 bSous4 413760 1224 o00010 MOVB = PORTA; RPCS2(RO) ;SELECT OR 
39 737 O01! TST STMP1. SEE IF eeaTuS EQ ZERO FROM PORT B. 
| 7691 OSO466 001012 BNE 70§ 'BR I 
| 7692 050470 6012737 177777 O01250 693: MOV #-1,RELERR SET RELEASE ERROR’ INDICATOR 
{ 
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7693 76 012760 00001 0 MOV #11,RPCS1(RO)  ;CLEAR iH DRIVE 
7694 BepeoN Bi See0 00001 0 MOV #13,RPCSI(RO)  ;RELEASE OR 
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0 
000 THE ORIVE 
Te OSE 1 on cos 7s: a Eheesamar ioe FOR B11 FAILURES WHEN RPOS1 READ 
oeas Reged Bt s3s pt 24 ppt aes "MOV PORTA’ PTNBR ‘CHANGE PORT NUMBER 
7698 050530 023737 001124 001170 CMP ScDOAT, STMP2  ;ALL BITS OK ? 
oo83 Beoees io4gg? ERROR 9 +e Fer ear FORT A. 
Fs fees flere RUT SOUR 7 RY Enea mop SES Meat GIT FILRES ~ Fre rrr 
203 OS0SS 023737 001124 001172 CHP Scoot, STMP3 BEE IF often OK ae PORT B. 
7205 D50566 194007 a ERROR ? REPORT ERROR 
7707 050572 OO0004 "SCOPE sLOOP ? 
7208 050574 000137 051132 IMP TST42 GO TO THE NEXT TEST 
7710 ;CHECK THE REGISTERS ON THE SELECTED PORT 
7712 OSO600 TST41B: 
7713 OS0600 005037 001244 CLR CKERR CLEAR THE * CHECK ERROR’ INDICATOR 
7714 O50604 016037 000014 001126 MOV RPERI (RO) SBDDAT’ ;GET CONTENTS OF RP 
gels 050612 16737 g00014 001122 Hoy PERI , SEOADR aFORN REGISTER RODRESS. OF ERROR MESSAGE 
7717 ary vaste 001124 CLR eo, WHAT REGISTER SHOULD BE 
e718 05060 237 37 001124 001126 chp Son, SBODAT ie THE REGISTER OK ? 
7720 050640 1 ERROR : TYPE MESSAGE 6 
7721 OS0642 005137 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
OSCE46 016037 OD0000 001126 64$:  # MOV RPCSI (RQ) $BDDAT’ :GET THE CONTENTS OF RHCS1 
| 77283 950654 012737 900000 001122 HOV aRPC SI, SBDADR eee ADDRESS OF REGISTER 
77 ara nee 001126 BIT wMCPE,SBDDAT  :IS 'MCPE’ SET ? 
050674 01404 BEQ 65S BR IF NOT 
7727 050676 040i! . ERROR 11 REPORT THE ERROR 
7728 050700 012760 oGNan00 oDD000: MOV #TRE,RPCS1(RO) ;CLEAR ’MCPE’ 
7729 050706 000240 655: NOP 
7730 050710 005037 001244 CLR CKERR CLEAR THE “CHECK ERROR’ INDICATOR 
7731 050714 016037 OO0040 001126 MOV RPER@(RO) SBDDAT’ :GET CONTENTS OF RPER2 
as 3 050730 pena? va 36 a oD Be RPERS  SEOAOR sFORR REP Once nocneSs _— 
Re 
7734 050734 005037 001124 CLR SGODAT WHAT REGISTER SHOULD BE 
Trae DENTE DOI4OS Otte t ObLtes > ea tas ee 
| 7737 050750 104006 ERROR 6 TYPE MESSAGE 6 
| 7738 050752 005137 001244 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
7739 050756 016037 OO0000 001126 66%: MOV RPCS1(RO),SBDDAT’ :GET THE CONTENTS OF RHCS1 
| 7740 050764 012737 00 001122 MOV #RPCS1,SBDADR ;FORM ADDRESS OF REGISTER 
| 7741 050772 060037 001122 ADD RO, SBDADR SADORESS BASE 
| 7742 050776 032737 O20000 001126 BIT #MCPE, SBDDAT 18 ’MCPE’ SET ? 
7743 051004 O01404 BEQ 67S F NOT 
| 7744 051006 104011 ERROR 11 REPORT THE ERROR 
7745 051010 012760 o40000 oD0000 MOV #TRE,RPCSI(RO) CLEAR *MCPE’ 
| 7745 051016 o00240 675: NOP 
| 7747 051020 005037 901244 CLR CKERR CLEAR THE 'CHECK ERROR’ INDICATOR 
| 7748 051024 016037 OO00042 001126 MOV RPER3(RO),SBDDAT’ ;GET CONTENTS OF RPERS 








1e737 000042 ODlice 
beoos? bori2s 
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DZRJEA.CMB Oe-NOV-76 18:49 T4l TEST PORT INTERACTION FROM PORT ’ 
| 
| 


O2-NOV-76 18: 42. PAGE 141 
#RPER3,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR sADD_R 1 BAS SE ADDRESS 
REGIS TER SHOU uLg BE 
sen Le EGISTE 
iBR IF OK 
YPE MESSAGE 6 
rT THE REGISTER COMPARE ERROR INDICATOR 
“GET THE CONTENTS OF RHCS1 
sFORM ADDRESS OF REGISTER 
ADDRESS BASE 
15 *MCPE’ SET ? 


N 
11 REP ORT THE ERROR 
#TRE,RPCS1(RO) ;CLEAR ’MCPE’ 


N 
RTS PC ; RETURN 


Pbabah halk talalalalalalSbat-taahah Sat tahadeh SSL Abb detehahab letah babakatah lab della lalaalalalelabalidala 
jATES 42 TEST PORT INTERACTION FROM PORT °B’ 


tSVERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDS1. 
8. WRITE 1’S INTO RPERI, RPER2, & RPER3 THROUGH PORT ’B’. 


C. READ RPER1, RPERC, & RPERS THROUGH PORT *A’. VERIFY THAT PORT 
"A’ SEES O'S FROMEACH OF THESE REGISTERS. 


D. CLEAR RPERI, RPER2, & RPER3 THROUGH PORT ’B’. 


E. WRITE 1°S INTO RPER1, RPERC, & RPER3 THROUGH PORT ’A’. 
PORT °B’ SEES 0’S FROM EACH’ OF THESE REGISTERS. 


F. RELEASE ie DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT °A’ AND THAT THE ATTENTION. air FOR PORT *A’ IS 
SET AND THE ATTENTION BIT FOR PORT ’B’ IS NOT SET. 


$GDDAT 
$GDDAT, SBDDAT- 
68S 


m 
P*] 
za 
So 
az 
o 


KERR 
RPCS1(RO),$BDDAT’ 
MOV aRPCSI $BDADR 

Al BOADR 
arte, $EDDAT 


68S: 


698: 


VERIFY THAT 


© EE RC RC RC OK KC RC KCC RC KCC aC a ac aC akc ke ke ic 


oi OSS OOS SS Se Oe SF SESS SESE SE Se Se 8 Os ee ee eee 


G. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
J mypeegesre nese agement inne enema este Biba 
KYBCTL PERFORMING ONLY SINGLE TESTS ? 
BEQ 25 *BR IF NOT 
BPL 1$ *BR IF JUST ENTERED TEST 
~ IMP EXEC ;RETU RN & GET NEXT TEST NUMBER 
1S: MOV I, kyecTL *SET SINGLE TEST INDICATOR 
23: MOVE 842° STSTNM TEST NU 
MOV #TEST42,SLPADR LOAD LOOP ON TEST ADDRESS 
MOV #TESTY2.SLPERR ;LOAD LOOP ON ERROR ADDRESS 
MOV #4000. ,$TIMES $;D0 4000. ITERATIONS 
TEST42: MOV STACK; SP "LOAD THE STACK POINTER 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
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DZRJEA.CMB  ‘O2-NOV-76 18:49 THe TEST PORT INTERACTION FROM PORT ’ 
7805 o51210 113760 001224 900010 MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 
7805 O51216 oo0d1e CLR RPDS1tRO) *SEIZE THE DRIVE 
a a eg 
oep8 petss? Sees ae BB0810 MOVE a RBeSSeRO) 3S L CF py ri] 
7810 051244 OO0SO60 o0001e CLR RPDS1 (RD) “SEIZE THE DRIVE THROUGH PCRT 'B’ 
Bil 051250 912760 000011 oon000 MOV #11,RPCSI(RO)  ;ISSUE DRIVE CLEAR 
ele 051256 012760 000013 o00000 MOV #13,RPCSI(RO) RELEASE THE DRIVE 
sed ;SEIZE THE DRIVE THROUGH PORT B 
7816 051264 113760 001226 o00010 MOVB — PORTB,RPCS2(RO)_;SELECT PORT B 
7817 O5le72 013737 OOlec6 001236 MOV PORTB, SEIZPT 3S TOR SEIZING PORT’S ADDRESS 
781 051300 0 000012 CLR RPDS1tRO) WRITE RPDS! 
781 1304 013737 001224 001240 MOV PORTA BPPRT **OPPOSITE’ PORT ADDRESS 
7820 051312 012760 177777 OO0014 MOV #-1,RPERI(RO)  :LOAD 1’°S INTO RPERI THROUGH PORT 8 
7821 051320 Ole760 177777 OD0040 MOV a-1, RPER@(RO) ; LOAD I; S INTO RPERe THROUGH PORT 8 
7822 051326 012760 177777 oo004e MOV #-1°RPERS(RO)  :LOAD 1’S INTO R PERS THROUGH PORT B 
7823 051334 113760 001224 oo0010 MOVB PORTA RpcsecRO) =SELECT PORT 
7824 051342 013737 O01e24 001234 MOV PORTA, PTNBR sMOVE. P PORT apoRese TO LOCATION FOR TYPEOUT 
7825 051350 004737 OS2206 JSR PC, TSt4eB sCHECK THE REGISTERS THROUGH PORT A 
7826 051354 113760 ODle26 oo0010 MOVB § PORTB,RPCS2(RO) *-SELECT PORT B 
7827 051362 013737 OO0lee6 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7828 051370 O0S0&D O00042 CLR RPERS(RD) “CLEAR RPER3 ON PORT B 
7829 051374 Oc5060 090040 CLR RPER2(RO) :CLEAR RPER2 ON PORT B 
7830 051400 O05 000014 CLR RPERI (RO) *CLEAR RPERI ON PORT B 
7831 051404 013760 OOl232 oo0o16 MOV ASRI.RPAS(RO) CLEAR THE ATTENTION BIT FOR PORT B 
7832 OSi4l2 113760 001224 o00010 MOVB § PORTA,RPCS2(RO) ”:SELECT 
7833 051 013737 001224 001234 MOV PORTA; PTNER sMOVE PORT appkese TO LOCATION FOR TYPEOUT 
7834 051426 012760 177777 OO0D14 MOV #-1,RPERI(RO)' ;LOAD 1S INTO RPERI THROUGH PORT 
7835 051434 012760 177777 OO0040 MOV a-1, RPER@(RO) s+ 008 1’°§ INTO RPER2 THROUGH PORT a 
7836 O51442 012760 177777 oo0o4e MOV #-17RPERS(RO)  :LOAD 15 INTO RPER3 THROUGH PORT A 
7837 O514SO 113760 001226 o00010 MOVB = PORTB, RPCS2(RO) SELECT P TB 
7838 OSI456 013737 001226 001234 MOV PORTB. PTNBR ove PORT appRese TO LOCATION FOR TYPEOUT 
7835 051464 004737 OS2206 JSR PC, TSt42eB ;CHECK THE REGISTERS THROUGH PORT B 
BH sRELEASE THE DRIVE FROM ae B 
7843 051470 113760 001226 on0010 MOVB =~ PORTB, RPCS2(RO) -SELECT PORT B 
7844 051476 013737 OOle26 001234 MOV PORTB,P OVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Bus 651504 012760 000013 000000 MOV #13, Beret cho)’ s ISSUE RELEASE THROUGH PORT B 
A: ;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT 8 
| 78439 051512 005037 001250 CLR RELERR ick LEAR "RELEASE. ERROR’ INDICATOR 
7850 051516 012737 111700 001124 MOV Sen IOP DRY:WV SGDDAT ;COMPARISON CONSTANT 
7851 051524 012737 OO00012 OOll22 MOV #RPDS1 $BDADR GISTER ADDRESS’ INCREMENT 
| 7852 5153 060037 001122 ADD $B8D, Rae STER BA ADDRESS FOR TYPEQUT 
7853 051536 113760 001224 00010 MOVE BOATA. 1 ee pSELEC POR 
| 67854 051544 013737 001224 001234 MOV PORTA, PTNBR Davi eb POR + apORESS TO LOCATION FOR TYPEOUT 
| 7855 O516S2 016037 OO00012 O01164 MOV RPDS1ERO) anal sREAD STATUS REGISTER FROM PORT A 
78 051560 113760 001226 000010 MOVB FORTB, RP pcse(R LECT PORT B 
785 1 013737 O0lec6 001234 MOV hove ORT ADDRESS TO LOCATION FOR TYPEOUT 
| 7858 051574 016037 000012 001126 MOV RPDSLERO), aR it :DRIVE STATUS FROM 
| 7859 051602 001404 BEQ 66S sBR IF ‘STATUS FROM PORT B ZERO 
| 7860 051604 005737 OD1164 TST STNPO I$ STATUS FROM PORT A ZERO ? 
| 
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ARRRRRRARARS 
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So oot 

04031 
Wee 

7 
00140 
104027 
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000010 
001234 
000000 


001166 


001126 
001234 
000010 


001234 
001126 
000010 


001250 
000000 
000000 
001126 


001234 
001170 


001126 
001234 





gbS 

SHPO, 0, $80DAT 
Scobat. $BDDAT 
675 


;RELEASE THE DRIVE FROM PORT A 
PORTA, A pee ORT 
;MO ovt P PORT abbRess TO ogee FOR TYPEOUT 
; ISSUE RELEASE THROUGH PORT A 
THAT THE DRIVE IS IN NEUTRAL 


;CLEAR_THE "RELEASE ERROR ’ INDICATOR 
;FORM THE ee OF RPDS1 FOR TYPEOUT 


BASE ADDRESS 
Mabini CONSTANT 
Sryes.gin STMPe ; Ge The oe SRIVE” sTans REGISTER FROM PORT A. 
Stes Poet DEPENDENT BITS FROM THE COPY 

T THE DRIVE STATUS REGISTER FROM PORT B. 
:COPY IT INTO *STMP1’ 
;CLEAR PORT DEPENDENT BITS FROM THE COPY 
i1s Ve STATUS REGISTER THE SAME FROM SOTH PORTS ? 
BIE Nt ARE THE SAME: ARE THEY ZERO ? 
VE_NOT IN + hss OR NOT SEIZED 


:BY REST OF 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


LECT PORT 
;SEE IF STATUS EQ O FROM PORT A. 


:BR ERO 
; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
*BAD wie "h ERROR TYPE OUT 


ae fF status EQ ZERO FROM PORT B. 
sSET Eres ERROR’ INDICATOR 
RELEASE ie DRIVE 
SSAGE 26 
LOOK FOR BIT FAILURES WHEN RPDS! READ 
GE rete NUMBER 


PORTA, PTNSR 
#13, RPCS1 (RO) 


RELERR 
ag et SBDADR 


$BDADR THE 1/0 
#MOL tPGM! DPR! DRY! WV SGD00T 
PORTA, RPCS2(RO) ; 


MP2 STHPO 
#ATA! VV, STMPO 
PORTB NbeeerROD 


RPDS1(RO), STMPS ; 


M 
#ATA!YY, STMPL 
STMPO, STMP1 


STMPO 

705 

46 

725 

STMP2, SBDDAT 
PORTS, PTNBR 
PORTB,RPCS2(RO) ; 
STMPO 

69S 

PORTA, PINAR 
PORTA,RPCSe(RO) 
STMP] 
#-1,RELERR 

#11, RPCS1(RO) 
#13; RPCS1(RO) 
$TMP2, SBDDAT 


PORTA, PTNBR 
$GDORT, STMP2 


58 
$TMP3, SBDDAT 
PORTB; PTNSR 


O2-NOV-76 18:42 PAGE 143 
TEST PORT INTERACTION FROM PORT ’B’ 


;BR_ IF ZERO 
sREPORT DRIVE IN NEUTRAL 


CK _ST 
HENGE PORT ADDRESS FOR TYFEOUT 
ee WITH CONSTANT 


:BR IF _OK 
REPORT REGISTER ERROR 


OK 
F OK FROn PORT A. 
. fee RPOS1 AY FAILURES - FROM PORT B. 
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DIRTEA.CNB  "O2-NOv-76 18:49 THe fest *PoRt INTERACTION FROM PORT "B’ 
7917 OSe164 Oe3737 001124 oO1172 CMP SGDDAT,STMPS ©; SEE_IF READ OK FROM PORT 8. 
7818 OS217e 001401 SEQ 725 F OK 
7319 O52174 104007 ERROR ? REPORT ERROP 
7920 OS2176 o00240 72$: NOP 
792; OS2200 o90004 SCOPE LOOP ? 
ree OS2e02 080137 ose2s4o INP TST43 :G0 TO THE NEXT TEST 
¢ 
7354 sCHECK THE REGISTERS ON THE SELECTED PORT 
case os2206 TST428: 
7327 OSe206 o05037 o01244 CLR CKERR CLEAR THE ’CHECK ERROR" INDICATOR 
79208 OSeci2 016037 000014 o01126 MOV RPERI (RO) SBDDAT’ -GET CONTENTS OF RPERI 
7325 OS2220 012737 000014 Odllee MOV 1,SBOADR ;FORM RE GISTER ADDRESS OF ERROR MESSAGE 
7330 OSe226 060037 OOllez ADD RO RO SaOAER AOD RA 1 BA 
7931 OS2232 005037 p01 124 CLR SGhDAT “WHAT REGISTER SHOULD BE 
7932 O0S2236 023737 001124 001126 EMP $GODAT,SBDDAT 1S THE REGISTER OK ? 
7333 052244 001403 Q 64S :BR IF OK 
7334 052246 104006 ERROR s TYPE MESSAGE 6 
7935 052250 005137 001244 CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
saab 052254 S16037 OOoC0O O01126 &4$: ‘MOV RPCS1(RO),SBDDAT’ :GET THE CONTENTS OF RHCS! 
OS2cb2 01 900000 SOllez Hoy #RPCS1 §BDAOR ; FORH ADDRESS OF REGISTER 
oa pecsea en 001126 ar antPE, SECDAT Hg TnPE® SET ? 
7340 052302 001404 REQ *BR IF NOT 
rex 052304 104011 ERROR > REP ORT THE ERROR 
052306 012760 o4o000 000000 MOV + TRE,RPCSI(RO) *CLEAR *MCPE’ 
7343 052314 000240 65S: NOP 
7344 052316 005037 O01 CLR CKERR sCLEAR THE *CHECK ERROR’ INDICATOR 
7345 peeiee 016037 rena 001126 MOV RPER2‘RO) .SBDDAT’ :GET CONTENTS OF RPERC 
7S45 127 37 009040 O0llze MOV SRPER2, SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7347 052336 OOil22 ADD RO, SBDADR ;ADD_RH11 BASE ADDRESS 
7948 OS2242 005037 001124 CLR SGODAT *WHAT REGISTER SHOULD BE 
7349 052346 ea? 32 001124 001126 CMP SGDDAT,SBDDAT 1S THE REGISTER OK ” 
7350 052354 001403 BEG 6ES *BR IF OK 
7951 052356 104 ERROR 6 :TYPE MESSAGE 6 
7352 052360 5 i 901244 COM CKERR SET REGISTER COMPARE ERROR INDICATOR 
7353 052364 01037 000000 001126 66S: MOV RPCSI(RO),SBDDAT’ :GET THE CONTENTS OF RHCS! 
734 052372 O1 090009 O0i122 MOV aRPcol SBOADR ;FORM ADDRESS OF REGISTER 
7355 052400 060037 001122 ADD SADORESS BASE 
7956 52404 O67 a7 520000 001126 BIT RNCPE. SBODAT 21S "MCPE’ SET ? 
7357 OSe4i2 O01 BEQ 67 BR IF NOT 
7958 O5e414 104011 ERROR 11 ;REPOR 
7359 a Sifeen o40000 oococo oa HOV STRE,RPCSI(RO) CLEAR 'MCPE’ 
ce -2 052432 O01 ae 001126 ae SFERS(ROD SB0DAT’ Be CONTENTS OF REERS en 
7963 Ole7a? 001122 MOV TOA RE REGISTER ADRESS OF ERROR MESSAGE 
7964 35 ADD SRPERS, SEOPOR "ADD RH11 BASE ROORESS 
Osetee oles CLR ia SHAT 1 ReGISTER SHOULD BE 
1124 001126 T, SBODAT ISTER OK 
737 O52464 001403 BEQ ihe IF 0 ee 
7568 OSe466 1 ERROR >TYPE ME 
7369 peei70 go1eus COM oer jSET_THE Bea R COMPARE ERROR INDICATOR 
™4 O] 001126 68%: MOV S1(RQ) SBDDAT’ | ;GET TENTS OF R 
73971 OSe502 012737 000000 O0llee MOV SBDAOR sep 600 REGISTER 
7972 052510 060037 O0ll2e ADD  SBOADR ADDRESS 





ee 
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CNB Ge-NOV-76 18:4 T42 TEST PORT INTERACTION FROM PORT ’B’ 
peeeks 032737 020000 001126 Bit eMCPE , S8DDAT ite *MCPE’ SET ? 
001404 BEQ 69S NOT 
OS2eSe4 10401! ERROR 1] ;REPORT Ly ERROR 
pesess phe cee O4000G 900000 MOV STRE,RPCSI(RO) ;CLEAR 'MCPE’ 
o34 0 &9$: NOP 
000207 RTS PC ;RETURN 


i Fi i panama a ga ae gp gmp 
T 43 TEST PORT °A’ ALTERNATE ATTENTION BIT PATH 


SN eRIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 





TRIEA 
7373 
7974 
7975 
r302 
7979 
7980 
7981 
7382 
7583 
7984 
7385S 3% 
7986 ii A. SET THE ATTENTION BIT FOR PORT ’A’. 
ce 33 B. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RPDS1. 
oae¢ :# READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
7991 i FOR THE DRIVE IS SET. 
aa osesuo FFT iii 
7395 052540 005737 001274 , KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
| Fagp Beseue Sehcs BOS Be te JUST ENTERED TEST 
| $9ag ese50 000137 02602 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
| ge Bees Tiere hoon GBliet Hite A SIBRTS FfeLsPuiaa es? tolcron 
| §001 052570 Ole737 OS2612 001106 MOV #TEST43,SLPADR LOAD LOOP ON TEST ADDRESS 
| 8002 052576 012737 OSeble 001110 #TESTY3.SLPERR LOAD LOOP ON ERROR ADDRESS 
| 8003 052604 012737 000031 001176 MOV #25. STIMES 0 25. ITERATIONS 
004 OS2612 012706 001100 TEST43: MOV STACK, SP LOAD THE STACK POINTER 
8006 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
8008 O52 3760 001 000010 MOVB PORTA. RPCS2(RO) ;SELECT PORT #A 
| 8003 Desess dosceo goons COO CLR SeCRO) FSELIE THe DRIVE 
| BOIL BeSese OLS7ED pepets panna MOV. «SESPRPCSTCRO)  ERELERSE SKE DRIVE 
| Bole Gesen Ul 228 600010 nove PORTS RPCSS (RO), {SELECT POR #8 un 
| 9013 l2 CLR Reps RD) ’ iSE1ZE THE vPRIVE THROUGH PORT ’B 
| 8014 1 if MOV ail, 1(RO) ‘$I DRI AR 
| BBR Bese a1e7e0 i 00001 Nove Ponts Reeser Ro) "SELECT PORT A 
«Ble BRR Aierig Go0dls HY BEL FERIA): 261 EnmORS To FORCE ATTN BIT ON PORT A 
| 80 1 bo lee 000010 MOVB § PORTB.RPCS2(RO) °;SELECT PORT B 
Sa I 1S TST RPOS1 (RO) WAIT Fi DRIVE TO RETURN TO, NEUTRAL 
| 02 1 BEQ- so *BR IF STILL SEIZED BY 
aise 1 ane 001122 HOY seteon > FORM SS OF ATTN REG" IF FERROR 
' = Pf 
| 8064 1 1253 oo1124 MOV ashi T $6000 ‘DATA FOR ERROR MESSAGE 
| 8025 1 O01e3¢ 1166 MOV BSR STNP1 : 
ene re, peste 00111 SOV os PERR + ORD OAD LOOP ON ERROR ADDRESS 
BeSvee 113760 Beieee 5 MOVB PORTB,RPCS2(RO) ” i rLECT PORT 6 
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DZRJEA.CNB = O2-NOV-76 18:4 T43 TEST PORT °A’ ALTERNATE ATTENTION BIT PATH 


013737 001226 901234 muy PORTE, BTNGR ;MOVE PORT RODRESS aot OGATION FOR TYPEQUT 
edd att CLR pence RB i pp dee ve SRIvE eae PORT B 
016037 O00016 001126 2S: MOV RPAS(RO),SBODAT ;GET THE CONTENTS OF THE ATTENTION REG 


tt C1 126 001 16s MOV $BODAT,StMPO © ;PUT CONTENTS Info WORKING LOCATION 
3 % 1168 0011 BIC STMP1, $TMPO ‘CLEAR OTHER BITS 
001124 O01 te4 CMP SGDDAT,STMPO §:SEE IF ATTN BIT FOR DRIVE SET 
BEQ 3$ BR IF SET 
104053 ERROR 53 REPORT THE ERROR 


3$: 
;RELEASE THE DRIVE FROM PORT B 


2 8 oh 


1124 00 CMP SGDOAT, STHP2 
BEQ 6 BR IF Ok OK PRON PORT A. 





Bhat 
8032 
8033 
Soap 
8037 
8038 
Spud 
8041 
g042 113760 001226 000010 MOVB PORTB,RPCS2(RO) ;SELECT PORT B 
8043 13037 dolce 1234 MOV PORT. PTNBR sMOVE.P PORT ADDRESS TO LOCATION FOR TYPEOUT 
B44 ol 000051 MOV 813,RPCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 
a sVERIFY THAT THE DRIVE IS IN NEUTRAL 
854g 00S037 001250 CLR sCLEAR THE RELEASE ERROR ’ INDICATOR 
8549 012737 900012 001122 HOV $RPDS1, SBDADR jFORM THE ADDRESS OF RPDS1 FOR TYPEGUT 
Boer pe0033 ieee 001124 MOV sMOL!PGM! DPR! DRY! vv } . PORPARI SON CONSTANT 
gone 113760 pata 10 MOVB = PORTA RPCse(RO) sSEtEET PORT PORT’ A. 
e 016037 j2 0901170 MOV t THE DRIVE STATUS REGISTER FROM PORT A. 
BOS4 132 013737 001170 001164 MOV STMP2 a tl *COPY IT INTO °STMPO’ 
BS tee ie BL Beeline babar ae mon ne cn 
| 8057 053154 -016037 O000l2 001172 MOV RPDSI(RO).STMP3 3GET THE SRIVE’ STATUS REGISTER FROM PORT B. 
8058 Desibe 013737 001172 001166 MOV STMP3, STMP1 >COPY IT INTO ’STMPL’ 
80539 053170 042737 100100 001166 BIC SATA'W,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
| B60 rites DO11E4 OO1166 chp STHPO STMPL Is THE wae TUS REGISTER THE SAME FROM BOTH PORTS ? 
| 8062 053206 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
B63 . Oeele 001045 BNE 66S ;BR IF NG. 
| 8064 eli i . ERROR 4G. : T DRIVE NOT IN NEUTRAL OR NOT SEIZED 
Spee tesees Oi3737 ae 001126 64S: MOV STMP2, SBDDAT HET Posst BAD DATA FOR ERROR MESSAGE 
| 067 13737 001226 001234 MOV POR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
8068 1 001226 000010 MOVB § PORTB,RPCS2(RO) ;SELECT PORT B. 
| 8070 Beseeo Boraig COL Boss | eS \adendadetagpa taal 
core Oe Je5e 013737 salir 901234 HOV PORTA, PTNBR 6 cna Fo odf TEST TEST SHOWS DRIVE NOT IN NEUTRAL 
Oeste 113760 1354 00010 MOVE PORTA’ RPCS2(RO) ‘SELECT po meee 
| Bor 053274 001166 ist snp i SE iif a ATUS EQ ZERO FROM PORT B. 
B07 eed 477777 001250 65S: MOV #-1,RELERR SET ° ERROR’ INDICATOR 
1 12760 1 MOV #11,;RPCSI(RO)  ;CLEAR DRIVE 
| 8078 1 00001 MOV #13,RPCSI(RO) ; DRIVE 
Ose ERROR 26 : MESSAGE 26 
i oo! 70 001126 66S: nov sinre, LOOK Fon 8 T FAILURES WHEN RPDS1 READ 
Boe beans 1 01170 BIC =—_- saTA, STMP2 mr CHECK THE ATTN BIT 
| 083 23737 00 1170 
| 6084 1401 
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A.CMB  ‘O2-NOV-76 18:49 T43 TEST PORT 'A’ ALTERNATE ATTENTION BIT Batn” 
g08S 053360 104007 ERROR 7 REPORT ERROR 
8086 Gessbe oia73" 901172 001126 67S: HOV STNP3, SB008T * CHECK REDSI FOR BIT FAILURES - FROM PORT 2. 
Bae peseep pi3e3e 1 ppt iss BIC BATA, $TMP3 che Ne TECK NUE ar BIT 
8089 053404 023737 001124 001172 CMP SGODAT,STMP3  :SEE IF READ OK FROM PORT 8. 
8050 dosule 051401 EQ 68S BR IF OK 
1 191 RROR 7 REPORT ERROR 
8092 053416 900240 68S: NOP 
8033 os3420 ocodo4 SCOPE LOOP ? 
8095 5 beet Ga TEST PORT °B” PLIERNATE ATTENTION BIT PATH 
22% s ATE TEST PORT ’B’ ALTERNATE ATTENTION BIT PATH 
Bog Trew THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
109 i A. SET THE ATTENTION BIT FOR PORT ’B’. 
B10 i B. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RPDSI. 
8104 2 READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
8105 i# FOR THE DRIVE IS SET. 
tte os2422 i memes es sata oe 0 agar pe america mnamt 
8103 22 001274 a Tae KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
110 26 ited BEQ 2s BR IF NOT 
8111 053430 iconde BPL *BR IF JUST ENTERED TEST 
B11 053432 137 002602 IMP EXEC "RETURN & GET NEXT TEST NUMBER 
8113 953436 012737 177777 001274 1S: MOV #-1, KYBCTL *SET SINGLE TEST INDICATOR 
| 8114 OS3444 112732 o00044 001102 2: MOVE #44’ STSTNM TEST NUMBER 
8115 OS34S2 01 053474 001106 MOV sTEST44, SLPADR LOAD LOOP ON TEST ADDRESS 
| HIS Ree Glee Gee BLUE Bt ESTES 88 ih es tures 
| BLB OS3474 O1e706 001100 TESTHY: MOV STACK, SP ;LOAD THE STACK POINTER 
| 120 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
| Bize2 1 MOVB PORTA, RPCS2(RO) ; T PORT #A 
5155 ees bt27e8 CLR RPDSItRO) fat THE ypRIVE 
Blo4¥ 053512 012760 MOV $11,RPCSI(RO) ; DRIVE CLEAR 
Biss Geseee T1S7eD HOVE «PORTE REGSOTROD IGELECT PORT sau’ 
| gle? CLR RPDS UR ) ioe VE THROUGH PORT ’B’ 
| gl i MOV al, 1(RO) 
| Bl 1 MOV 813°RPCSI(RO) ; ORIVE 
| 8130 053554 11 MOVB PORTB.RPCS2(RO) ’-SELECT PORT B 
813 MOV ft- 1(RO) ‘ete TO FORCE ATTN BIT ON PORT B 
ia Gee HAN, 
| Bl il MOVB TA. RPCS2(RO) CT 
| 8134 053602 005760 1S: TST RPOS1 (RO) har FOR ORIVE TO RETURN To NEUTRAL 
gl 177s BEQ 1S BRI IF STILL SEIZED BY PORT B 
i 1 HOV skPAS SBDADR ATTN REG IF ERROR 
| 9138 013737 MOV RO, SEDADR T TA FOR f FOR ERROR NESSAGE 
8139 peaese 013737 MOV ASR. STMP1 coop" pare COMPARE MASK 
| 8140 053636 005137 COM STMP] t COMPLEMENT IT 
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DZRJEA.CMB ‘O2-NOV-76 18:40 THY TEST PORT ’B’ ALTERNATE ATTENTION BIT PATH 
4 ? 
HY BBS NEE BAS BU Bly BNE Btcn, PAA Aon FESS 
B144 OBseeN 13737 Oolse4 ObLase HOY _PORTA'SE POT Os PaobRESS 
give 72 005060 le CLR RPDS1{RO) SEIZE THE DRIVE THROUGH PORT A 
814% 053676 016037 OO00IE 001126 2s: MOV RPAS(RO). SBDDAT sGET THE CONTENTS OF THE ATTENTION REG 
8147 fesse 913737 001126 OO1164 MOV SBODAT, STMPO T CONTENTS INTO WORKING LOCATION 
he 53718 33 001166 001164 BIC STMP1, $TMPO CUE ARO THER BITS 
el Oe? 1124 001164 chp SGDDAT,STMPO § :SEE IF ATTN BIT FOR DRIVE SET 
BiB, peares ree net ERROR BB ES Fle ERROR 
8153 é 
g154 RELEASE THE DRIVE FROM PORT A 
gies pater bt3339 oes op TEED nove PORTA’ BTN Bf PO ove PORT ADDRESS TO LOCATION FOR TYPEOUT 
g158 05374 012760 000013 000000 MOV #13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT 
160 VERIFY THAT THE DRIVE IS IN NEUTRAL 
8162 053754 005037 001250 CLR RELERR CLEAR THE ERROR ’ CATOR 
Bibs 053760 012737 9000 le 001122 HOV #RPDS1 , SBDADR FORM THE ADDRESS BF RPDS1 FoR wa OUT 
B15 tS778 Oie737 011700 a4 MOV art ar pens ony! Vy, sang 1/0 CORPAR ISON CONSTANT 
Bie eer bie037 eee rarer NOV RPOSI ERD) SInP2 sete PORTVE” STATUS RE FROM 
cise Semis Glare Oui7o Motley § «© oY STRBR STRPG iG TT IMO STR ae copy 
6170 054030 113760 001226 000010 MOVB PORTE RPCS2(RO) ;SELECT PORT B. 
gir feuose pisrsr DOTiTe potiee oy ros Leb) STrPs se THe OREVE, STATUS REGISTER FROM PORT . 
| B73 OSH0s Owe? 37 196106 001166 BIC saan STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
| Bi Gea? 37 1164 001166 CMP STHPO /SthPL 1S THE ginTus REGISTER THE SAME FROM BOTH PORTS ? 
| giz Gibee pores CUldee Be ORAS sRECESTE RS RE THE a a a es 
Basce cee —_ eee He Re oP NE eh OT SEIZED 
8180 104 013737 001 1126 64S: § T DATA FOR ERROR ME 
8181 peqi 3 Re peep pet aee HOY PORTB,P faa NG PO tte a SHOWS DRIVE NOT ih ne NEUT 
| te beats ets Boties — rere cong coe RO) sSELEGT POR aTUs EQ 0 FROM PORT rey ss 
| 8184 beuise bold i4 BEQ = 65S ‘BR Ie ZERO 
HB Bie tive Bie eR Seee ee reer caan ER TNE "OT ™ PEUTRN 
} 8187 beaten 13520 001224 8 MOVB § PORTA,RPCS2(RO) ;SELECT PORT 
188 ratte 005737 001166 Tet SIMPL" j SEE if sre EQ ZERO FROM PORT B. 
| g190 164° O1 77777 001250 65$: MOV #-1,RELERR err "RELEASE ERROR’ INDICATOR 
| 8191 054172 012760 11 000000 MOV fii’ *RPCSI(RO) sCLERR THE Tie Oat 
| Bise e400 O1 900013 000000 MOV #13, RPCS1(RO) IVE oe 
i 
| 68194 054210 013737 001170 001126 66S: V TYE FOR = FAILURES WHEN READ 
| B19S 054216 013737 001224 001234 NOV PORTA’ RoR :C RANGE PORT NUNBE weer 
| 8196 054224 042737 100000 001170 BIC #ATA, STMP2 ‘BON’ Te CHECK eee BON BIT 


le 
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;CLEAR ATTENTION BITS FOR BOTH PORTS 
OS4366 13760 001224 000010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT #A 


DZRJEA.CMB ‘O2-NOV-76 18:45 THY TEST PORT °B’ ate ATE ATTENTION BIT 
6197 oS4 023737 001124 001170 CMP enzo sALL BITS OK ? “s 
8198 054 001401 BEQ ‘BR IF OK FROM PORT A. 
ols Se iSag ree 117 1126 678 mf TM aT sREPORT ERR 1 FOR T FAILURES - FROM PORT B 
Ge Ges flee RUE Bum ON Ama Se : 
g202 054260 042737 100000 O01172 BIC DON’T CHECK THE OTTN BIT 

266 923737 O0l124 001172 CMP sezoht 8 STHP3 ; SEE IF READ OK FROM PORT B. 
8204 054274 001401 BEQ BR IF OK 
B20S O54276 104007 ERROR _ REPORT ERROR 
8206 054300 o000240 683: NOP 
8207 054302 o00004 SCOPE LOOP 7 
8208 OS4304 000137 oss224 IMP SEOP G0 TO "END OF TEST 
gsi® : 5 REAARARLELALARE RARE LARA LLLE RE LLE AER ALER ELAS LE LA ALLE RE RELELERLERE 
esis -SBTTL ### SPECIAL TESTS FOR THE M7775 (’DP’) BOARD ### 
esta gs BERLE EREEE KEE SK LEK ESSE NES SER SRRK SL RER ELS ERE KE RL ELLE EK EEFLFES 

esis : pire Ge TEST NO TIMEOUT THROUGH PORT "A 
gei8 j STE TEST NO’ TIMEOUT THROUGH PORT ’A’ 

8220 s SVERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
8221 3 SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
B55 i A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RPDS1. 
B55¢ : * 8. SET PORT REQUEST BY WRITING 0’S INTO RPDS1 FROM PORT ’A’. 
B55 *% (C. ISSUE A RELEASE COMMAND FROM PORT °B’. VERIFY THAT THE DRIVE 
8228 * HAS SWITCHED 10 THE OTHER PORT AND THAT THE ’ATA’ BIT DID NOT 
Bec i SET FOR PORT ’B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’A’. 
8231 :# D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
8232 i BEEN RELEASED 

ess 7% €. RELEASE THE ORIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
Bess :3 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
6237 4 © REAEAASA RAS LA AAAS RASA RELA SELESLLRRERAA RA AA LALA ERAELSERLL ESSE 
8238 054310 tits: 

8239 054310 005737 001274 TST KYBCTL ORMING ONLY SINGLE TESTS ? 

6240 054314 001406 BEQ 2s F NOT 

824i 054316 1 BPL 1$ iB IF JUST ENTERED TEST 

B42 054320 i ed 002602 IMP EXEC RETURN & GE TEST 

8243 054304 O01 177777 901274 1$: MOV #-1,KYBCTL *SET SINGLE TEST INDICATOR 

Bo44 O54332 11 bo0045 1102 2: MOVB  #45°ST — TEST NUMBER 

Be45 OS4340 O01 os4 001106 MOV TES *LOAD LOOP ON T ADDRESS 

Be46 054346 012737 054362 001110 MOV ates! ;LOAD LOOP ON ERR ADDRESS 

8247 054354 12737 000004 001176 MOV we D0 4 ITERATIONS 

8248 054362 O01 001100 TESTYS: MOV sctace LOAD THE STACK POINTER 

Beag 

8251 

8252 
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OZRIEA.C T4S TEST NO TIMEOUT THROUGH PORT ’ 


ane 


3 


: 


Se 


te 


ae 


3 


CLR RPDS1 (RO) fe “E THE DRIVE 

MOV 1,RPCS1(RO) E DRIVE CLEAR 

MOV a3" RPCS1(RO) RIVE 

MOVB PORTB,RPCS2(RO) iS tect POR ni 

CLR ReDS1 ERO) *SEIZE THE DRIVE THROUGH PORT 'B’ 
MOV RPCSI(RO) ISSUE DRIVE CLEAR 

MOV 13" RPCS1(RO) RELEASE THE DRIVE 


55 HESS HE SE ARSE SESE RHEE HE SEE HEHE RHEE EERE EER AEE EEE EEE EEE EEE 
;SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB, rset) ;SELECT PORT B 
MOV POR TB, peicr sSTORE SEIZING PORT’S ADDRESS 


CLR “WR 1 
NOV pepe tO) BPPR MO PoST TE? PORT ADDRESS 

MOVB = PORTA, Be ees (RO) -SELECT PORT A 

MOV PORTA, PTNBR im PORT ADDRESS TO LOCATION FOR TYPEOUT 


$ SAM BP a ar panera rnagemene yp penmeeeicy ee reiemanet: 
:SET REQUEST THROUGH PORT A 
CLR RPDS1 (RO) SET REQUEST FOR PORT A 


MOVB PORTB,RPCS2(RO) *:SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


© LEXKAALEELELAARAKEAA RA RELA EAE RARE REAL AA AAALKA LEAR ALEKS RA EAA KSEE 
RELEASE THE DRIVE THROUGH PORT B 


MOV #13,RPCS1(RO) ;RELEASE DRIVE THROUGH PORT B 


: SAIT THE MEASURED TIMEOUT FOR THE PORT (2 oan) ee 
WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 


MOV TIMEAP , WATCH ;SET WATCH TG MEASURED TIMEOUT VALUE + 25% 


SeERIFY THAT THE DRIVE 19 STILL SEIZED BY PORT Ae 
-VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT A 


CLR CKERR CLEAR THE ’CHECK ERROR’ INDICATOR 
MOV RPDS1(RO),SBODAT’ ;GET CONTENTS OF RPDS1 
MOV #RPDS1. SBDADR TORN REGISTER ADDRESS OF ERROR MESSAGE 

. ADD SeOADR RH11 BASE ADDRESS 


RO “ADD 

- CLR SGODAT sHHAT T REGISTER SHOULD BE 

CNP SGDDAT,SBDDAT 31S THE REGISTER OK ? 

BEQ 66S BR IF OK 

ERROR 31 j TYPE MESSAGE 31 

ts con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 

TST CKERR REGISTER OK ? 

BEQ “+5 *BR IF OK 

INP iS *BYPASS REST OF TEST IF NOT 

TST WATCH *WATCH EQUAL ZERO ? 

BNE 4 *BR IF NOT 


5p RERRERLRREAE ARERR ERLE E LEAS SELLE ALAA ERA RARE LE RE RARER AAA RELAE 





EE ET TS A | 
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DZRIEA.CNB =" O2-NOV-76 18:49 T4S TEST NO TIMEOUT THROUGH PORT 'A’ 
8303 ;CONFIRM THAT THE DRIVE HAS NOT TIMED OUT 
8311 OS4630 013737 001224 001234 MOV PORTA, PTNBR ;POBT NUMBER . FOR TYPEOUT 
B318 O46 1244 CLR CKE CLEAR THE CK ERROR INDICATOR 
i ue 1 C0012 001126 MOV RPDS1(RO),SBDDAT’ GET cONTENTS OF R 
8314 OS46S0 012737 O00012 O0l122 MOV #RPDS! SS0ADR ;FO bw RE r AODRESS. OF ERROR MESSAGE 
B315 OSHb5g 7? OOllee ADD RO, SBDADR if RDO Fall ake 
16 001124 CLR $GODAT Wl ISTE SOUL6 Soe 
8317 bea7 3 001124 001126 CMP SCODAT, SBDDAT TS. REGISTER OK ? 
8318 tga 1 BEQ 685 BR IF OK 
8319 054676 104035 ERROR 35 *TYPE MESSAGE 35 
E320 o54700 37 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
1 4 68S: NOP 
Bee 054708 .005737 oo1244 TST CKERR sREGISTER OK ? 
8304 714 ut Kg oss2s4 fic is sR TE 0K REST OF TEST IF NOT 
8326 $3 KAHARA AAA RAS ARA RAK AKAA RL ATLA AAA FSLA RARE RAE KALE LAR E ELE AHL ALLELE 
S38 sRELEASE THE DRIVE FROM PORT A 
8330 OS4720 113760 001224 do0010 MOVB  PORTA,RPCS2(RO) ;SELECT PORT A 
8331 054726 613737 OOlec4 001234 MOV PORTA: PTNBR sMOVE.P PORT ADDRESS TO LOCATION FOR TYPEOUT 
8223 954734 012760 000013 o00000 MOV #13,RPCSI(RO)’ ;ISSUE RELEASE THROUGH PORT 
ee 34 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
8336 054742 005037 001250 CLR RELERR CLEAR Tite ap REL "RELEASE ERROR ’ INDICATOR 
su746 012737 9000 le 001122 MOV #RPDSI SBDADR A ADDRESS OF RPDS1 FOR TYPEOUT 
e333 peuveo Biers? BT1780 O01124 B00 RO, SOAR ore paivi te ll ° EORPARISON ZONSTANT 
eat es ate cere refi HOV poner taps sinpe : SELECT For DR ve" TATUS REGISTER FROM PORT A. 
a face fie Bee Bie RY Rltehage Ty GS 
8343 055010 042737 490190 001164 BIC BATAIVV.STMPO  _: CLEAR PORT T BITS FROM THE COPY 
8344 pe5016 413760 1 10 MOVB § PORTB,RPCS2(RO) ;SELECT 
8345 1 I 1172 MOV RPOS1(RO),$TMP3 :GET THE "DALVE, STATUS REGISTER FROM PORT B. 
2346 O50 013737 001172 OO1166 MOV STMP3, STMP1 *COPY IT INTO °STMP1’ 
Ba? 042737 100100 OO1i66 BIC #ATA'VV. STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
055046 023737 001164 001166 CMP STMPO, STMPL 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
B3eg peepee ee 001164 aot STRPO Brats : ARE THE SAME: ARE THEY ZERO ? 
8351 055062 O01045 BNE 725 :BR TBTERS 
BS G50bH 1oNOue ERROR *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
137 osS252 IMP * BYPASS REST OF THE CHECKS 
8354 0s507¢ 013737 001170 001126 70S: MOV STNP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
8355 055100 013737 00 1¢26 poles “R HOV PORTS, PINBR 4) j SEIZING PORT I IF TEST SHOWS DRIVE NOT IN NEUTRAL 
af rs . 
ead feet Oe hh2786 pt Ten " TST STRPR eee tr cent "EQ O FROM PORT A. 
Bseg peels para? O01 12 oo 2g a,PT Rt B PORT F TEST DRIVE NOT IN NEUTRAL 
ae ae e 
bet ee Hee Bilis Bus | le Ranta ise eh Om Fe 
t 
Hee peete 005737 OO01166 1ST STMPi. ‘Seer fr E98 STATUS EQ ZERO FROM PORT B. 
£363 055150 O0i0le2 NE 72$ F NOT 
£264 055152 012737 177777 oO01250 71S MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 





j 
i 
| 
i 
: 
| 
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ZRIEA.CNB ‘O2-NOV-76 19:49 THS TEST NO TIMEOUT THROUGH PORT ‘A’ 
8365 OSSI60 012760 000011 o00000 MOV W11,RPCSI(RO)  ;CLEAR THE ORIVE 
8366 055166 012760 000013 000000 MOV 413, RPCS1(RD) sREL LEASE TH HE OR ly Se 
Baro peer aos 70 & 723 el TMP aT OR BIT FA nee WHEN RPDS! READ 
gies Gum aguas 7 eT A 

8370 OSS2el2 023737 O011e4 001179 CMP SGDDAT, STMP2 
"B32 : 14 EQ 738 iBR Le yf Or oF HM PORT A. 
8373 055224 013737 001172 001126 733: Mov SNPS, SBDDAT  ;CHECK RPDSI FOR BIT FAILURES - FROM PORT 8. 
8374 055232 013737 go12e6 001234 MOV PORTB’ PTNBR ; CHANGE PO 
8375 055240 023737 OOlle4 OOl172 CMP scLont, STMP3 :SE. IF READ OK FROM PORT 8. 
e378 055246 001401 BEQ :BR IF 
§377 055250 104007 ERROR % !REPORT ERROR 
8378 055252 000240 74$: NOP 
B58 oss254 ogo004 1S: SCOPE sLOOP ? 
8382 hit Jett delalaladataiad ttt label teh tet Stel lab tol-tteh-trlat-+-5-1-tad-t-| ella daalaalalialaalalaialated 
8383 ifr TEST 46 TEST NO TIMEOUT THROUGH PORT ’B’ 
Bee HIVERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
B38 ii SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
8288 i A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RPDS1. 
ess0 ii B. SET PORT REQUEST BY WRITING 0’S INTO RPDS! FROM PORT ’B’. 
8392 *% (. ISSUE A RELEASE COMMAND FROM PORT ’A’. VERIFY THAT THE DRIVE 
8393 * HAS SWITCHED TO THE OTHER OORT AND THAT THE ’ATA’ BIT DID NOT 
8394 i SET FOR PORT ’A’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’B’. 
Bee :% D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
8397 i BEEN RELEASED. 
Bee *% £. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
B400 33 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
e402 ° EERE EK KLE R SHELA LES EE SR ERE KEKE RAKE REE ESL ESE REE LEER ERR XE EL ESSE 

| 8403 oss256 tre: 

| S404 055256 005737 001274 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
8405 055262 001406 BEQ 2s 

| 8406 055264 190002 BPL 1§ BR IF JUST ENTERED TEST 

' 6407 055266 000137 o0260e2 JMP EXEC RETURN & GET NEXT TEST NUMBER 

| g4GB 055272 O1e737 177777 001274 18: MOV #1 ,KYBCTL SET SINGLE TEST INDICATOR 

| B409 055300 112737 O0004% 001102 2S: MOVB 846 STSTNM 

| $410 055306 012737 055330 001106 MOV STESTUE, SLPADR LOAD LOOP ON TEST ADDRESS 

| 8412 055314 012737 055330 001110 MOV #TESTY6-SLPERR ;LOAD LOOP ON ERROR ADDRESS 
8412 055322 012737 000004 001176 MOV #4, STIMES :=D0 4 ITERATIONS 

| BHl3 055330 012706 001100 TEST46: MOV SStACK. SP__ LOAD THE STACK POINTER 

| Bu1s sCLEAR ATTENTION BITS FOR BOTH PORTS 

| 8417 055334 113760 001224 O00010 - MOVB PORTA, RPCS2(RO) ;SELECT PORT #A 

e418 beste 005060 o000!2 CLR RPDS1ERO) *SEIZE THE DRIVE 
8419 05 612760 O00011 oon000 MOV #11,RPCS1(RO) ISSUE DRIVE CLEAR 

| €420 055354 012760 000013 o00000 MOV B13,RPCSI(RO) RELEASE THE DRIVE 

| ) 

| 

| 





-——---------——- 
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DZRJEA.CMB ‘O2-NOV-76 18:49 TH TEST NO TIMEOUT THROUGH PORT ’B’ 
5 13760 001226 900010 MOVB = PORTB.RPCS2(RO) ;SELECT PORT #8 
ae he 3*6 GOED 000012 CLR RPDS1{RO) : SEIZE THe yPRIVE THROUGH FORT ’B’ 
000011 ooo900 MOV #11,RPCSI1(RO)  ;ISSUE ORIVE CLEAR 
Bs peedga Bts3e8 909013 00000 MOV #13,RPCSI(RO)  ;RELEASE tH DRIVE 
euss £5 HEHE HEHEHE GHEE gE tate 
Bc8 ;SEIZE THE DRIVE THROUGH PORT A 
8430 OSS410 113760 001224 oD0010 MOVE PORTA, RPCS2(RO) _;SELECT PORT A 
8431 O55416 013737 O012e24 001236 MOV PORTA, SE=Z PT sStOR ORE SEIZING PORT’S ACDRESS 
B432 055424 605060 o000i2 CLR RPDS1{RO) WRITE 1 
8433 055430 013737 001226 001240 MOV PORTB, OPPRT 2° OP POSITE® afoRT ADDRESS 
Bid 055436 113760 OOle26 o00010 MOVB = PORTB, gore (RC) -SELECT P 
B45 055444 013737 OO0lecb 001234 MOV PORTB; PTNBR Dove PORT aboeese TO LOCATION FOR TYPEOUT 
8437 © SHH EKALA LEK ALE ALE LAL EAE ASR LEELA E RHE REAA RESALE ERE KALE EASAAEELES 
B438 dey REQUEST THROUGH PORT B 
8440 oss4s2 o05060 o0n012 CLR RPDS1(RO) sSET REQUEST FOR PORT 8 
8441 OSS45S 113760 901224 ooo010 MOVB § PORTA,RPCS2(RO) ";SELECT PORT A 
Bite OS5464 013737 O01204 001234 MOV PORTA,;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Sayy H SS EEE Th GIVE THLE PORT ee neaamanenenes 
B44 *RELEASE THE DRIVE THROUGH PORT A 
Bi? 055472 012760 000013 oco000 MOV $13,RPCS1(RO) | ;RELEASE DRIVE THROUGH PORT A 
Bugg s © LEKELE RES SRLS SKK LAS LL LEK EAE ELF LE EEE KELL LKR SEERA KEKE AKLELE 
B450 “WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
6452 OSSSO0 013737 O01266 001254 MOV TIMEBP,WATCH | ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 
| BeSy SERIFY THAT THE DRIVE Ie STILL CEIZED BY PORTE 
Bue VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 
8457 OSSSO0& 005037 001244 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
Bie 0555 016037 12 001126 MOV RPDS] (RQ) SBDDAT’ ;GET CONTENTS OF RPDS 
gus peeeag 127 le OOllee MOV SBDADR sFORN REGISTER ADDRESS OF ERROR MESSAGE 
BY60 055526 001122 ADD ao PeBSADE sADD RH11 BASE ADDRESS 
BYbL 055532 b0s037 001124 CLR __ $GDDAT * WHAT REGISTER SHOULD BE 
055536 737 001124 O01126 CMP SGDDAT,SBDDAT 31S THE REGISTER OK ? 
8463 055544 001403 665 3BR IF OK 
pied DS5546 104031 ERROR 31 TYPE MESSAGE 31 
| 137 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
B466 O55554 000240 665: NOP 
| 8467 055556 005737 o01244 TST CKERR sREGISTER OK ? 
| 8468 O55562 001402 BEQ +6 ‘BR IF OK 
| 8469 OS5564 000137 oSe222 IMP is “BYPASS REST OF TEST IF NOT 
| 8470 055570 005737 001254 TST WATCH “WATCH FQ UAL ZERO ? 
Buz 055574 001375 BNE 4 *BR IF 
| 8473 | ONFIRN THAT THE DRIVE HAS NOT TIED OUT eee 
! Bir ;CONFIRM THAT THE DRIVE HAS NOT TIMED OUT 
8476 OS5576 013737 001226 001234 MOV PORTB,PTNBR ;PORT NUMBER FOR TYPEOUT 
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EA.CMB 'C2-NOV-76 18:49 THe ‘TEST NO TIMEOUT THROUGH PORT ° 
72 053604 pnsna7 44 CLR CKERR SCLEAR THE ’CHECK ERROR’ INDICATOR 
Se bee ; uf a at iy ARPES] SROROR "FORT RESICTER RODRESS Gr ERROR MESSAGE 
. # 
Bio pee Na oR 4s ADD RO PpBAABROPOR ADD REP "BESE ROD Pec 
81 055¢30 7 001124 CLR SGODAT T REGISTER SHOULD BE 
OS634 023737 001124 001126 CMP  SGDDAT, SBDDAT ts. THE REGISTER OK ? 
Bugs Oss642 901403 SEQ «BS '6R IF 
guey osse44 104035 ERROR 35 {TYPE MESSAGE 35 
BBS 055646 005137 O01244 CoM GKERR ISET THE REGISTER COMPARE ERROR INDICATOR 
gug_ OS5652 90024 68%: NOP 
gug7 osses4 005737 001244 TST  -CKERR SREGISTER OK ? 
ugg O55660 001402 BQ tié«*#S 
S489 055662 OO01G? Osé222 mp |S 2BYPASS REST OF TEST IF NOT 
| 83 SEXAELKLLLELEREKR LEEK SKE EKAAR LESH SELESE ELAR LE LEELA KALLE SELLS E LEE 
433 sRELEASE THE DRIVE FROM PORT 8 
8495 OSS 113760 001226 OO0010 NOVB  PORTB,RPCS2(RO) _ ;SELECT PORT 8 
8496 055674 013737 O0l226 001234 MOV PORTB'PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sus? Oss702 Ole760 00013 000000 MOV #13, Resi TRO) SISSUE RELEASE THROUGH PORT B 
g489 SVERIFY THAT THE DRIVE IS IN NEUTRAL 
8501 10 005037 001250 CLR —_—-RELERR ;CLEAR THE 'RELEASE ERROR ’ INDICATOR 
055714 012737 OO00l2 001122 NOV  #RPDS1.SBDADR FORM THE ADDRESS OF RPDS1 FOR TYPEOUT 
8503 055722 060037 001122 ADD SAD THE 1/0 BASE ADDRESS 
055726 012737 011700 001124 MOV.  #MOL'PGM!DPREDRY! VV, SGDDAT — ;COMPARISON CONSTANT 
B50S 055734 113760 001224 O00010 MOV © PORTA.RPCS2(RO) ;SELECT PORT’ 
058742 016037 O00012 001170 MOV  RPDSICRO), STMP2 $GET THE DRIVE STATUS REGISTER FROM PORT A. 
8507 055750 013737 001170 001164 Moy  $TNP2,STNPO_——«:COPY IT INTO. *STMPO” 
8608 055756 042737 100100 001164 BIC «SATAN OV. STMPO {CLEAR PORT DEPENDENT BITS FROM THE COPY 
Be1a peers ot AS Oot iTe Nove PORTE RECSECRO) 335 eT ORTVE’ STATUS REGISTER FROM PORT B. 
¢ 
Bet? Beeans BiSes7 BOTIeS §Dorttes MOV —«STMP3. STMPL BE py He OOnTOSTNPL: 
8512 056006 042737 100100 001166 BIC  #ATANYV.STMP1 © }CLEAR PORT DEPENDENT BITS FROM THE COPY 
8513 056014 023737 O01164 COll66 CMe «= «§TMPO,StNPL =; 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
| 8814 o5e022 001006 BNE 70 BR T 
8515 056024 005737 OD1164 TST STMPO iREGISTERS ARE THE SAME: ARE THEY ZERO ? 
B516 056030 001045 BNE 72 Tt 
8517 056032 104046 ERROR 46 REPORT DRIVE NOT IN NEUTRAL QR NCT SEIZED 
8518 056034 000137 OS6220 IMP 74S ?BYPASS THE REST OF THE CHECKS 
| 8519 056040 013737 OOI170 ODI 708: hoy S$ THP2, SBDDAT ‘SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| 8520 O56046 013737 001226 001234 MOV RTB’PTNBR  :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 521 056054 113760 001226 OO00I0 MOVB PORTE’ RPCS2(RO) ;SELECT PORT B. 
| 8622 056062 005737 O0116E4 1ST §TMPO’ 'SEE IF STATUS EQ O FROM PORT A. 
8523 056066 001414 BEG 718 ?BR IF ZERO 
| B5e4 056070 013737 001224 001234 MOV RTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 8525 56076 013737 001172 001126 MOV.  $TMP3’SBDDAT : BAD DATA” FOR ERROR TYPE QUT 
| B58 O56104 #13769 Dolce O00DI0 MOVE © PORTA’RPCS2(RO) :SELECT PORT 9. 
| B55? 056112 605737 O01166 TST STMPL' SEE IF Ere TUS EG ZERO FROM PORT B. 
| Ieee Tee Te Oeets io7777 01250 718: HOV He RELERR iSeT NOT ASE ERROR’ INDICATOR 
| Goss Pep leD Otel ee haob1, BpoeRD MOV  #1I°RPCSI(RO) :CLEAR aR THE BRIE 
| 8531 056134 012760 000013 000000 MOV. #13°RPCSI(RO) ;RELEA 
| €532 OS6l42 104026 ERROR TYPE ERROR MECSAGE. 26 
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8533 O56 44 ue 01170 001126 72%: MoV STMP2,S$BDDAT  ;LOOK FOR BIT FAILURES WHEN RPDS READ 
61224 001234 MOV PORTA’ PTNBR ‘CHANGE PORT NUMBER 
001124 001170 CMP SGDDAT, STMP2  :ALL BITS OK ? 


3R 
172 001126 738: MOV $TMP3, S8DDAT ;CHECK RPDS1 A ay FAILURES - FROM PORT B. 
226 001234 MOV PORTE. PTNBR CHANGE PORT NUM 

124 001172 CMP spon, STMP3 :SEE IF READ OK FROM PORT 8. 


0S62 
14 4 BEQ :BR IF OK 
854 Beesie 1 4907 ERROR 7 REPORT ERROR 
a OS6e2e0 000240 $ NOP 
eeuP OS6222 000004 1S: SCOPE - ;LOOP ? 


-SBTTL END OF PASS ROUTINE 


© SHLKSAKLLEL LARA LEAS RALL AS EA SARA HHA LAA ARK A AKA KARHE A RREKEEAEREE 

8550 t LINCREMENT T THE PASS NUMBER (SPASS) 

8551 ?#INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

gss2 *#TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE cacy REPORT YYYYY™ 
:¥WHERE. XXXXX AND YYYYY ARE DECIMAL NUMBERS 

8554 :#IF THERES A MONITOR GO TO IT 

gssS *#IF THERE ISN’T JUMP TO TSTIAA 


8557 056224 SEOP: 
OS62ee% 005737 001274 TST eye s ENTERED yest VIA KEYBOARD COMMAND ? 


8560 OS6e32 000137 Oo0e602 JMP XEC ¢RETURN TO KEYBOARD CONTROL 
005037 1 ;ZERO THE TEST 
176 CLR TIMES + }2ERO THE NUM an OF ITERATIONS 
8563 pepeds 005237 100 INC ASS ;; INCREMENT THE PASS NUMBER 
8564 042737 100000 001100 Bek 5 edt ty ALLOW A NEG. NUMBER 


8S65 005327 D 
8566 OS62e6e 000001 SEOPCT: .WORD 
003063 B 


SDOAGN 33¥ES 
8558 012737 MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
85639 056270 000001 SENDCT: gnpee 1 


056262 
8571 056274 104401 056302 TYPE 65S 5s TYPE ASCIZ STRING 
8572 000407 BR 4g GET OVER THE ASCIZ 
j i658: "ASCIZ <12><1S>/END PASS’ 87 


8575 056320 013746 001100 MOV $PASS,-(SP) . ;;SAVE SPASS FOR TYPEOUT 

8576 3; YPE PASS NUMBER 

8577 O0S6324 104405 TYPDS 33G0 TYPE--DECIMAL ASCII WITH SIGN 
8578 056326 104401 056334 TYPE 67$ 35 Yee ASCIZ STRING 

8579 056332 O004el - BR 6$ ;GET OVER THE ASCIZ 

j i678: -ASCIZ 7 TOTAL ERRORS biNCE LAST REPORT / 


056376 : 
056376 013746 001112 MOV SERTTL, -(SP) ie SERTTL FOR nero 


L NUMBER OF E 





8584 oO56402 104405 TYPOS 
eses OS6404 ipens? 001207 Le SCRLF 


056410 C 
8587 056414 013700 O0004e SGET42: MOV a#42, RO 
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| 

ie e588 056420 OO140S BEQ SDOAGN 

} 

& 

a 






Bete 


gdagt eat ad sat at cad cad a ca 
0 be 2 bn ho ee 
WONWULCWFe-O 


BSR eRo BRS 


Beko eae 


062716 
012737 
000207 


MO-11-DZ2RJE-A, DUAL CONTRLR LOGIC TEST - PART 1 MACY11 27(1006) 
DZRJEA.CNB “D2-NOV-76 18:49 E 


000021 
001254 
000021 
001254 


000004 


CKCLK: MOV sSET UP VECTOR FOR CLOCK CHECK 
| CLR JHERRVEC+2 *NEW P 
TST JSLKCSR HECK FOR KW11-P 
MOV SLPVEC,RI 11-P VECTOR ADDRESS 
- MOV #CLOCK’ (R1)+ si UP KW11-P VECTOR 
~ MOV #300, (R1) *PSW = PRI 6 
122510 MOV #-1, a$LKCSB :LOAD COUNTER BUFFER WITH 1°S 
122500 HOV eke CSR  3SET CLOCK - CNT UP, 16MS, CONT INT 
CKCLK1: ADD - sRESTORE THE STACK POINTER 
MOV scKeLK2, JHERRVEC’ sCHANGE ERROR VECTOR TO CHECK FOR KWII-L 
TST aSLKS. :LO0K K FOR KWI1-L 
MOV S$LLVEC,R1 1-L VECTOR ADDRESS 
f MOV #CLOCK: (R1)+ rt UP KW11-L VECTOR 
MOV #300, (R1) :PSW = PRI 6 
122444 HOV #100) a$L ks *SET KWL1-L INTERRUPT 
CKCLK2: ADD w4,SP sRESTORE THE STACK POINTER 
ADD #2; (SP) INCREMENT RETURN, NO CLOCK 
000004 CKCLK3: HOV 46, JWERRVEC RESTORE THE ERROR VECTOR 
sROUTINE TO COUNT CLOCK TICKS 
001252 CLOCK: ADD #17., TIME ;ADD 17 MS TO ELAPSED TINE COUNTER 
Ist HATCH i18 WATCH ALREADY ZERO 
001254 Sue #17. ,WATCH sauetncy MS FROM WATCH DOG COUNTER 
CLR WATCH sCLEAR WATCH DOG COUNTER 
1$: RTI : RETURN 
sROUTINE TO CALCULATE + AND - 25% TIME TOLERANCE VALUES 
TOLER: SUB § .#4,SP SETUP STACK 
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NO OF PASS ROUTINE 






‘SET ssCLEAR T 
soo: THF ren 
NOP + 
NOP tif ll 
SDOAGN: 
MP (PC) + ; ;RETURN 
RTNAD: .WORD TSTIAA 
000 SENULL: -BYTE -1,-1,0 s;NULL CHARACTER STRING 







§ 5 RRRRRRARERA RARE EERE SELLE LER EER LE LEER ELE LEE EERE EE LELEALEE REE ERER 
-SBTTL ##* SUBROUTINES **# 
fp RRRRERELEAE REE REE ERE REE RE REEL EERE RE ELELAEEE EERE EEELELERELREELRE 







;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
IF CLOCK IS PRESENT, THE CLOCK WILL BE STARTED 


#CKCLK1, J#ERRVEC 





000004 














r ee en en ree 
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| DERIEAcMB  OS-NOV=7E 18:49 #2 SUBROUTINES #4 
gs45 OSEE34Y 016616 000004 MoV 4(SP), (SP) sSAVE STACK 
8646 OS664C 013546 MOV 3(RS)4,-(SP) GET TIME VALUE 
BE4? OSesye SL IEEE o90004 MOV (SP) ,4tSp) “MOVE TIME VALUE 
S648 OSeb4E O1lsse 900006 MOV (SP)'6(5P) ;MOVE VALUE AGAIN 
| S649 OSees2 OO6e16 ASR « SP) 12 
8650 O56ss4 Odsel6 ASR (SP) !DIVIDE BY 2 AGAIN (FOR @ TOTAL OF 4) 
8651 O5665— O61666 cO00D4 ADD (SP), 4¢SP) ;CALCULATE UPPER LIMIT FOR TIMEQUT 
Be52 OS6662 e266 SOCOC4 Sus (5P)4, 4(SP) *CALCULATE LOWER LIMIT FOR TIMEOUT 
se53 OS6666 OCC2CS RTS RS RETURN WITH TOLERARICES ON THE STACK 
SSeS ; ¢ REELEREELEFSLELLSERELALAELLLALERALLASLLELELE FLL LLALELLSALELSALEE 
ser .SSTTL *SYSMAC’ UTILITY ROUTINES 
BSss ss SEFSLEFSERELEFSESELSKRLALESELLLELELSSESFEAESSLELERSELSSSLAFLLSLSLSS 
see .SBTTL SCOPE HANDLER ROUTINE 
' 8653 ss ETHIE ROUTINE CONTROLS THE LOOPING OF SUBTESTS. TT Witt INCREMENT 
SEE4 :$THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 17 WILL INCREMENT 
SEES 3 SANG LOAD THE TEST NUMBER ( STSTNM ) INTO THE DISFLA Y_ REG. (DISPLAY<7:0>) 
8866 *#AND LOAD THE FLAG (SERFLG) INTO DISPLAY< T8085 
8657 5 THE gouttcn OPTIONS PR PROVI BY THIS ROUTINE BRE: 
BSEB *SW14 
| BESS outta INATBST [SERATIONS 
8870 :#5w09= LOOP ON ERROR 
| 8671 > #CALL 
I pa 3% SCOPE : sSCOPE=IOT 
| Be7% 
SSCOPE: 
| 8675 peeeay 104407 CKSWR s;TEST FOR CHANGE IN SOFT-SWR 
| 8876 056672 032777 oO40000 122240 18: - BIT #81714, ISWR :LOOP_ON PRESENT TEST? 
| 8677 056700 001101 $0 >: YES IF SWi4=1 
| 8678 -seeeeSTART OF CODE FOR THE XOR TESTERSseas 
, 8875 OS6702 o004I6 $XTSTR: BR x3 ss IF RUNNING ON THE “XOR™ 
| 8680 >: THI INSTRUCTION TO A “NOP” (NOP=240) 
| BEBI 013746 DRERRVEC,-(SP) 33 HE CONTENTS OF THE ERROR 
S689 056710 012737 056730 oo0004 MOV BSS, a8ERRVEC  3:SET FOR TIMEOUT 
| Bey feesds tere doooes nov 70177080 sever tT RESTORE THE ERROR VECTOR 
| 8685 056726 poodes BR SSvLAD 33G0_ TO THE NEXT TEST , 
| B686 056730 Oe2626 Ss: CMP (SP)+, (SP)+ +s CLEAR STACK AFTER A TIME OUT Va 
| 8687 056732 012637 oo0004 MOV (SP)+,a8ERRVEC ;:RESTORE ERROR VECTOR 
| 68688 O56 13 BR 7$ *:LOOP ON THE PRESENT TEST 
 «-BEBS = OSe &$:;88888END OF CODE FOR THE XOR TESTERG&sHS ; 
/ 8690 OS6740 001103 2s: TSTB © SERFLG ;:HAS AN ERROR OCCURRED? 
| 6691 056744 001421 BEQ 3§ ::BR IF NO } 
: 8692 O5674— 123737 001115 001103 CMPB SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? i 
‘Bee pserse 082777 oo1o00 122184 BIT 1709,aSuR $: LOOP ON ERROR? 
| BESS Beeves | G01404 o ww 33R_ IF NO 
| Bb 56766 O17 7 001110 O01106 7S: HOV SLPERR, SLPAOR ::SET LOOP ADDRESS TO LAST SCOPE 
| ge98 O56 i 001103 4§: CLRB 3:ZERO THE ERROR FLAG 
| eras bes0G8 001176 CLR STIMES :CLEAR THE NUMBER OF ITERATIONS TO MAKE 
«8700 057006 o00415 ::ESCAPE TO THE NEXT TEST 
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DZRJEA.CMB =‘ O2-NOV-76 18:49 SCOPE HANDLER ROUTINE 
g701 057910 932777 004000 122122 38: BiT aBIT11, 3SuP sy INMIBIT ITERATIONS? 
é 0576 Hy 
Sood teroet Sida, OUL10C eo Os si 1F FIRS MMIBT? STERAT TONS 
8705 057026 3 091104 INC SICNT :: INCREMENT OTT RATION COUNT 
Boos BECENG SozGs; COLI7e O0LICS See SOUER Ste ne TTERETCON REGUTEE oe 
8708 O57042 012737 00000: 001104 1S: MOV 81, S$ICNT +?RE Arta ize THE ITERATION COUNTER 
8709 057050 013737 OS7l2e0 901176 MOV SMXCNT, STIMES bce NUMBER OF ITERATIONS TO DO 
8710 957056 105237 001102 SSVLAD: INCB §TST *:COUNT TEST NUMBERS 
8711 057062 011637 001106 MOV (SP), $LPADR ::SAVE SCOPE LOOP ADDRESS 
®712 O57066 011637 OO1110 (5P)’ SLPERR >:SAVE ERROR LOOP ADDRESS 
8713 057072 005037 001200 CLR *:CLEAR THE ESCAPE FROM ERROR ADDRE 
8714 057076 112737 OO000i on1115 MOVB #1. SERMAX ::ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
8715 057104 613777 001102 122030 SOVER: MOV STSTNM, QDISPLAY ::DISPLAY TEST NUMBER 
8716 OS7ll2 013716 001106 MOV SLPADR? (SP) FUDGE RETURN ADDRESS 
8717 057116 od0002 RTI ssFIXES PS 
i. ae SEETTL: ERROR HANOLER ROUTINE *#rn%- NUMBER OF ITERATIONS 
. 
8721 ge LERLESSAERSSASE RLS EER LELELEESRSLEAR LSE ELSE BES AEBS LEE LS ERE SES SS 
8722 :#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
B75 i SBND GOTO SERRTYPON ERROR re CORES OF THE ERROR CALL 
| 8725 jETHE SHITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
| 8727 ;#SW13=1 INHIBIT ERROR TYPEOUTS 
| 8728 #5W10=1 BELL ON ERROR 
| 8729 > CALL 
g30 : ERROR N ;;ERROR=EMT AND NeERROR ITEM NUMBER 
| 8732 057122 SERROR: 
| 8733 057122 104407 CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
| 8734 057124 113737 001102 oole4e MOVE § STSTNM, TSTNUM 
| 8735 OS7132 105237 001103 7S: INCB = SERFLG 3;SET THE ERROR FLAG 
| 8736 057136 001775 BEG 7§ ::DON’T LET THE FLAG GO TO ZERO 
| ‘Be beriae ahe777 Speane | 1S1764 BIY —aBITIONSSUR © EEBELL “ON ERRORTO wD ERROR FLAG 
| 8739 pea ice 1402 BEQ eres 2:NO - SKIP 
| B740 057156 104401 oO1202 TYPE SBELL >:RING BELL 
| 8741 057162 005237 ODllie 1S: INC SERTTL ::COUNT THE NUMBER OF ERRORS 
Bre 166 011637 00111 pasted Hoy (SP) 3;GET ADDRESS OF ERROR INSTRUCTION 
| B744 beri7e 1 121712 01114 MOVE  aSERRPC,SITEMB ;;STRIP AND THE ERROR ITEM CODE 
| BS fees fee, Se ee HE heen 
| B747 057216 hen 057254 ISR PC. SERRTYP G0 TO USER ERROR ROUTINE 
| 8748 104401 001207 aos, PE » SCRLF 
Eeg 005777 121706 3: ST om : HALT 
| 8751 1 BPL 3$ *:SKIP IF CONTINUE 
| 8752 HALT ;;HALT ON ERROR! 
es j “ CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
8755 57640 ose424 ooon42 ~~ CMP #SENDAD, 2842  ;;ACT-11 AUTO-ACCEPT? 
6756 1001 BNE 63 > :BRANCH IF NO 





| 
i 


ee ee ee 
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OZRIER.CMB = Oe-NOV-76 18:49 ERROR HANDLER ROUTINE 


7 peed 090900 es: HALT 3; YES 
URN 


oo 
ut 
vs) 


; RTI - RET 
.SBTTL ERROR MESSAGE TYPEOUT ROLITINE 





8762 gs ESESREPLASSLLELSEERLE LEP SSSEPA LE FLESLELSEEELSLYL SE LSEL FEL EELS PLS SSS 
*#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
8764 #ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (ERRTB), 
8765 *#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
B58 057254 SERRTYP: 
8768 057254 1o44O 001207 TYPE SCRLF ss"CARRIAGE RETURN” & “LINE FEED” 
8765 057260 010046 MOV RO, -(SP) He RO 
8770 OS7e62 905000 CLR RO :PICKUP THE ITEM INDEX 
8771 057264 153700 001114 SIS8 adsSITEMB,RO 
8772 057270 01004 BNE 1$ :;IF ITEM NUMBER IS ZERO, JUST 
Sood OS7272 O174 ODILIE MOV SERRPC.-(SP) i ZenvE SRE OF THE ERROR 
8775 ; >: ERROR ADDRESS 
8776 057276 104402 TYPOC *:G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
8777 057300 Soous BR 10$ *:GET OUT 
8778 057302 1S: DEC RO s:ADJUST THE INDEX SO THAT IT WILL 
8779 057304 006300 BSL RD :: WORK FOR THE ERROR TABLE 
Boat 3 TT ery RO 
aoBe $7318 VSgard 001304 Bb #SERRTB, RO :;FORM TABLE POI 
| 8783 057316 012037 057326 MOV +,28 ::PICKUP “ERROR MESSAGE” POINTER 
| gee fesace Poauer Fee TYPE THE ERROR RessAGe 
| 8786 735! poo000 2s: . WORD "ERROR MESSAGE” POINTER GOES HERE 
| 8787 057330 104401 001207 TYPE SCRL >:"CARRIAGE RETURN” & “LINE FEED" 
| 8768 057334 Ol 057344 3S: MOV tRO)+, 4S ;sPICKUP “DATA HEADER” POINTER 
| 8789 057340 O00! BEQ 35 SKIP TYPEOUT IF 0 
| 8790 O57342 104401 TYPE $3 TYPE THE “DATA HEADER" 
| 8791 057344 900000 4§ WORD 2:"DATA HEADER” POINTER GOES HERE 
| 8792 04401 001207 TYPE SCRLF *:"CARRIAGE RETURN” & “LINE FEED™ 
| 8793 10146 ] MOV «RI = (SP) 3;SAVE Ri 
| 8794 057354 Ole0ol MOV (RO)+,R1 *:PICKUP “DATA TABLE” POINTER 
| 8795 057356 001415 BEQ 4 ?:BR IF NO DATA TO BE TYPED 
| 796 057360 012000 MOV (RO)+,RO *:PICKUP "DATA FORMAT” POINTER 
| 9797 057362 105720 6S: TSTB = (ROD >:"OCTAL” OR “DECIMAL” 
| 8798 057364 001003 BNE 7$ ::BR IF DECIMAL 
| g799 013146 MOV a(R1)+,-(SP) ;:;SAVE a(R1)+ FOR TYPEOUT 
200 ioe ryPoc ss 2:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ead 73: 
8803 0131 MOV Q(R1)+,-(SP) ss; 3(R1)+ FOR TYPEOUT 
| BB04 i TYPDS * 260 =~DECIMAL ASCII WITH SIGN 
| 8805 005711 8S: TST (R1) *:15 T ANO NUMBER? 
BED6 pe7de 001403 Q 9$ >:BR IF NO 
| 8 a 104401 057424 TYPE ii $3 TYPE TWO(2) SPACES 
| 8808 O57410 000764 33 ’ 
os74i2 01 9s: MOV (SP)+,R1 ssRESTORE R1 
057414 15e05 10S: MOV (5P)+'RO He STORE RO 
057416 04401 001207 TYPE  , SCRLF "CARRIAGE RETURN” & “LINE FEED” 
| 
} 
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DZRJEA. CMB =NOV=76 18:49 ERROR MESSAGE TYPEOUT ROUTINE 
8813 osT422 RT PC : sRETURN 
Bet ees OO oono WS: .AscIZ 7° 7 ti THO(2) SPACES 
8815 057430 “EVEN 
geie .SBTTL TYPE ROUTINE 
pele $ TEREEEESSERERES SLE ESSE RHEESESSRELFESSES SEL SRERSRLELER GRASS LASS SS 
Se20 $RPOUT ING TO. Time, ACE RESSRCE, TESance MUST TERMITE WIM A 0 BYTE. 
8821 : INOTES: SNULL CONTAINS THE E chanat es 19 BE USED ane FILLER CHARACTER. 
8822 :#NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
Bes3 ; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
9825 *CALL: 
8626 s#1) USING A TRAP INSTRUCTION 
B52 a YPE  ,MESADR s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
8829 1 TYPE 
8830 1% MESODR 
8831 3% 
Bas ps7430 105737 001157 STYPE: TSTB  STPFLG :1S THERE A TERMINAL? 
Bese * 057436 reer ri SALT ” HOR IF Yes IF NO TERMINAL 
Base femude Brood 15 Sv BB. (SP) sFLERVE 
8838 OS7444 017600 oco0nce MOV a2tSP),RO 3;GET ADDRESS OF ASCIZ STRING 
| 8839 OS74S0 112046 2s MOVB = (RO)+,-(SP} ;PUSH CHARACTER TO BE TYPED ONTO STACK 
8840 957452 o001005 BNE 4§ toe F IT ISN’T THE TERMINATOR 
| Beas peruee ieee 605 " (35)3 RO ide TORE RO ow a eS 
8843 057460 O6e716 poooce 3$ ADD #2, (SP) tT ADTUST RETURN PC 
Beue Berube Toerte oooo11 us RNB «HT, (SP) tS BRANCH IF <HTD 
Beas eG aDi438 ooc2oo ERB ae (SP) ae IF NOT <CRLF> 
8848 057500 001006 BNE cs a 
£849 057502 005726 TST (SP)+ sPOP <CR><LF> EQUIV 
Seer fevers Apion? SCREF i 
8852 057510 105037 057644 C{RB § SCHARCNT ;;CLEAR CHARACTER COUNT 
057514 BR 2g :3GET NEXT CHARACTER 
8854 057516 004737 057600 cS: ISR PC, STYPEC 260 TYPE THIS CHARACTER 
| Bass Oe 75ce 123726 001156 6S: CMPB = sSFILLC,(SP)+ 3:15 IT TIME FOR FILLER CHARS.? 
| Gee? pevese Biaeae pouss cy SCSRULL,-(SP) ETS Ge FILLER CHARS NEEDED 
8858 : *:AND THE NULL CHAR. 
| e859 057534 105366 000001 73: DECB 3s SP) DOES A NULL NEED TO BE TYPED? 
| 860 002770 a bs eal + 3BR TF No--Go POP THE NULL OFF OF STACK 
epee pereue ree hey bece SCHARCN $309 NOT COUN aS A COUNT 
8864 , «on 
| Bets sHORIZONTAL TAB PROCESSOR 
| 8867 057554 112716 900040 8S: MOVB (SP) j REPLACE TAB WITH SPACE 
| 8868 057560 004737 057600 95: ISR Pc, $TYPEC *: TYPE A SPACE 
{ 
j 











8870 
887 


1 
core 
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hh 
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8869 O0S7564 132737 000007 OS7644 


o 


> 


000012 900002 


pine 


= 


ooo ee- 


ga Gee Eee 






TYPE ROUTINE 
BiTB #7, SCHARCNT 3} BRANCH F NOT AT 
BNE 9$ T 







TAB S 
TST (SP)+ * POP SPACE | OFF STACK 
BR $ *:GET_NEXT CTER 
STYPEC: TSTB aSTPS - ::WAIT fNTIL HORINT R IS READY 
BFL eTyvrer : 
MO 2(SP). a$TPB ; TYPED DATG REG. 
ch cr at8e) HTS Cobra RAGTER Be CARRY a TURN? 
BNE CHARCNT tYege-c ae CHARACTER COUNT 
BR STYPEX EXIT 
1S: CMPB alr 2(SP) 31S CHARACTER A LINE FEED? 
BEQ STYPEX *:BRANCH IF YES 
INCB = (PC) + $s COUNT THE CHARACTER 
SCHARCNT:.WORD 0 ;;CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


g SMEAR SEE SE ARASH AEE HEHE AR EAE EEE EERE REE EEE EE EERE EERE EES 
ETH HIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:#OCTAL (ASCII) NUMBER AND TYPE IT. 

#STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


: Ls 
: MOV NUM, -( SP) ;;NUMBER TO BE TYPED 
x TYPOS :CALL F OUT 
2 .BYTE NN ?:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3% -BYTE MM 33M=l J 
2 ;31=TYPE LEADING ZEROS 
i ::Q=SUPPRESS LEADING ZEROS ‘ 
:#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
j #STYPOS OR STYPOC 
os MOV NUM, -<SP) ;NUMBER TO BE TYPED 
i TYPON PtCALL FOR TYPEOUT 
renee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
+ MOV NUM, ~ (SP) ;NUMBER TO BE TYPED 
+ TYPOC : CALL FOR TYPEOUT 
STYPOS: MOV 3(SP),-(SP) ;;PICKUP THE 

Ove 1(5P),$OFILL  3;LOAD ZERO FILL SWITCH 

MO (SP)+.SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
” B00 #2, (SP) > ADJUST RETURN ss 
STYPOC: MOVB 81, SO0FI _ $3SET THE ZERO FILL SWITCH 

MOVE «#6, 41°  3:SET FOR SIX(6) DIGIT 
STYPON: MCVB #5, SOCNT *:SET THE ITERATION COUNT 

MOV R3,-(SP) *:SAVE R3 

MOV RY, -(SP) SAVE RY 

MOV RS’ -(5P) : SAVE RS 

HOVE SOMODE+1,R4 °:GET THE NUMBER OF DIGITS TO TYPE 

#6, R4 ;;SUBTRACT IT FOR MAX. ALLOWED 


Pra 


e 


z 
a 


Sonia 


Buoueet FONE Oa a Mata otarins 


SE SeSrenDEa RONG TES 


SEERERERRRE Sa Gnu UML Mnneeer seer eae toe natt 


sae 


en ee ee rr ae 0 reer nee e ee ee ee ES een een nes. 


be ee -e e  e 
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060074 
060073 
000012 


060074 


oocode 000004 


: Hiss TO pecan teh 


5 SE 9696 9 9 9 6 9 9 9 9 SEE HEE ER 
rh nce CHANGE ote 16-BIT_ BINARY paren tS A ae ey 


TYPE IT. DEPENDING ON WHET! HE 
A NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


3; ;PUT 
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iD TYPE 


;;SAVE IT F Uae 

;;GET THE ERO FILL SWITCH 

dst g THE INPUT NUMBER 
;CLEAR THE OUTPUT WORD 

FRO ATE MSB INTO “C” 


;G0 D 
; FORM THIS DIGIT 


s:GET LSB OF THIS DIGIT 
;}TYPE THIS DIGIT? 


sR T_SUPPRESS ANYMORE 0’S 
;;MAKE THIS DIGIT ASCII 


Hee LAST DIGIT ISN’T A BLANK 
G0 DO THE LAST DIGIT 

;;REST RS 

dp 2 a4 

s;RESTORE R3 

3;SET THE STACK FOR RETURNING 


; ;RETURN 
33ST ORAGE may ASCII DIGIT 


i oF BicITs TO TYPE 
YPE ROUTINE 


;;PUSH RO ON STACK 
3 PUSH Ri ON STACK 





BINARY NUMBER ON THE STACK 
3;GO0 TO THE ROUTINE 












SRGPASRR SAI ITITIRI IEE & 





me ee wn ee ee een oe 


S8ssssssss 
ee ee 
WONOU CWO 


- 
at 


Bh 


RAS TIA iSI sts 


Ro 


= B= b= 8 0 -* HF Fp Go Be 


S37 ERERLHFESSREVS 


mo 
£o 


PEPER RECEP RS RRR Re RRR 


0 0 0 be 9 


aan 
ae 
He 


SESE See ROIS Eee 


: 


Ole 
01 
100004 
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ease 


a 


a 
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020200 
000020 


ocooss 
060312 
000040 


ooo0c1 


060302 


177777 


177777 177776 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV #20200, -(SP) 
20(SP),RS 


MOV 
BPL 
NEG RS 
MOVB = #”’=, 1( SP) 
1S: CLR RO 
MOV #SOBLK,R3 
MOVB =so#’_—, (R3)+ 
23: CL 
MOV $DTBL(RO),R1 
3S SUB R1,RS 
BLT 4g 
INC R2 
BR 3$ 
ug ADD R1,RS 
TST Re 
BNE S$ 
TSTB ss ¢ SP) 
BMI 75 
cS: ASLB = (SP) 
BCC 63 
MOVB  1(SP),-1(R3) 
6S: BIS #’0,Re 
75: BIS #’ ‘Ro 
MOVB Re, (R3)+ 
TST (RO)+ 
CMP RO, #10 
BLT 2s 
BGT 8$ 
MOV RS, Re 
BR 6$ 
8S: TSTB 3s (SP) + 
BPL 95 
MOVB -1(SP),-2(R3) 
9$ CLRB ss (R33) 
MOV (SP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,Re 
MOV (SP)+/Ri 
MOV (SP)+’RO 
TYPE $D 
MOV 2(SP),4(SP) 
MOV (SP)+; (SP) 
RTI 
SOTBL: 10000. 
1000. 
100. 
10 


SDBLK: .BLKW 4 
-SBTTL TTY INPUT ROUTINE 


BLANK SWITCH AND SIGN 
THE ut eee 


SINCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;;CHECK_IF BCD DIGIT=0 


; I 
:STILL DOING LEADING 0°S? 
- BR YES 


II 
T ALREADY A DIGIT 
THE OUTPUT BUFFER 


; T A SPACE IF 
;;PUT_THIS CHARACTER IN 
NTING 


INCREME 
;;CHECK THE TABLE 
A THE NEXT 
33;G0 TO EXIT 
33 LSD 
3;GO CHANGE TO ASCIT 
;;WAS THE LSD THE FIRST NON-ZERO? 


;;8R_ IF 
FOR TYPING 
THE TERMINATOR 


3 


PtADJUST THE STACK 
; ;RETURN TO USER 


5g RA RRRRRR ERLE EERE REL ELLAELA ALARA ERRR ELAR EERE RRA RAE A ELAR RRR RELE EE 


-ENABL L 
TKCNT: .WORD O 
TKQIN: .WORD QO 
STKQOUT: .WORD O 





;;NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
;;OUTPUT POINTER 
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DZRJEA.CMB  ‘O2-NOV-76 18:49 Y INPUT ROUTINE 
9037 060330 000001 STKQSRT: .BLKB 1 TTY KEYBOARD GUEUE 
aps, O60330 eat STKOEND=. : 
3033 32 EVEN 
Su Se TT IY Brea en ory veraum ws 
a4 ESSETUP THE INTERRUPT VECTOR AND TURN ON THe KEYEUARD INTERRUPT 
S0uE CAL: ee BC STKINT 
gnu? e RETURN 
aoas 060332 005037 060322 $TKINT: CLR STKCNT sCLEAR COUNT OF ITEMS IN QUEUE 
30s0 060336 012737 060330 060324 MOV. &sS$TKQSRT STKQIN HNOVE THE STARTING ADDRESS OF THE 
apes bizva7 pepsde poddeo ROY SIKOTN SIKOOUT INITIALIZE THE KEYBOARD VECTOR 
9053 rants pigt3e o09200 o00006e2 MOV #200 aatkveces ite BR” LEVEL a 
ghee pense Tez Br3955 atten 120544 aM rie aSTKS eT eere ? e eS KEYBOARD INTERRUPT 
8055 O60400 900207 RtS 60s ::RETURN TO CALLER 
apes SE THIS ROUTINE LILI SERVICE THE TTY KEYBOARD INTERRUPT 
3086 > ¥BY READING THE Chat R FROM THE INPUT BUFFER PUTTING 
3062 : 
8063 O60402 117746 120540 STKSRV: MOVB aSTKB,-(SP) 5 3PICKUP THE CHARACTER 
8064 OS0406 O4271E 177600 BIC atCi7? (SP) ;3STRIP T 
9065 l2 OF ibe? 000007 1S: CMP ), 4? 3315 IT A CONTROL G? 
S066 16 O01 BNE se ANCH IF NO 
9057 060420 022737 000176 001140 CMP #SWREG, SWR Ts SOFT-SWR SELECTED? 
3068 060426 001500 BEQ 6$ +:G0 TO SWR CHANGE 
8070 060430 23: 
| 9071 060430 022737 C0000! 060322 CMP #1, STKCNT 3315 THE QUEUE FULL? 
9072 060436 OD1004 BNE H IF NO 
8073 O60440 104401 oD1202 TYPE SBELL tERING THE TTY BELL 
8074 O60444 605726 TST tSP)+ :CLEAN CHARACTER OFF OF STACK 
8075 060446 S045! BR S$ +E 
9076 O604S0 Oeil 000023 38: CMP (SP), #23 3318 IT A CONTROL-S? 
9077 060454 001021 BNE 325 He NCH IF_NO 
| 9078 060455 005077 120462 CLR aSTKS DISABLE TTY KEYBOARD INTERRUPTS 
| 9079 (60462 005726 TST (SP)+ * CLEAN ae OFF STACK 
| $080 Deoved 1 120454 318: STB  a$STKS 2:WAIT FOR A C 
| 9081 060470 100375 BPL 31$ 33LOOP UNTIL ITS THERE 
2082 060472 11774 120450 MOVB § a$TKB,-(SP) T THE CHARACTER 
De076 16 177600 BIC #t017?, (SP) t MAKE IT 7-B1T ASCII 
| 9084 000021 CMP (SP)+, b21 3315 IT A CONTROL-0? 
| 9085S De0508 1366 BNE 313 F NO 
| 086 10 012777 000100 120426 MOV #100, ISTKS ttREE TTY KEYBOARD INTERRUPTS 
| $3, Behele Bebo FING + CUNT 
9nge 060322 328: INC STKCNT *:COUNT THIS CHARACTER 
| 9089 060524 Oel62e7 000140 CMP (SP), #140 *:1S IT UPPER CASE? 
| 90996 060530 o02405 BLT 4g : BRANCH IF 
9091 060532 Oel 000175 C (SP), #175 31S IT A SPECIAL CHAR? 
$092 060536 BGT ug ::BRANCH IF Y 
| 
| 





ee ebetsbrtrbctatctatatattatatetstatatatatatetsbatatatatet-tetctrtet et ot etatt 


WNOKOKODUONDNWODOWD 0OWDUDDDVD OVUM WOVWOVNOODOOOWOWWUWUW.0OOWWW 
rantitetett ita bininiotat th iat ti nibte tthe aba Rte et tbs t ata bint tet =f 
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060331 
060324 


001149 


000001 


001135 
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TTY INPUT ROUTINE 


i TI 
*CONTROL-G BEING T 
$: CMPB 








;iMAKE TT UPPER CASE 
$3AND PUT IT IN QUEUE 
S:UPDATE THE POINTER 
THE END? 


 aain , #STKGEND ; i orn ae 
#STKQSRT, STKQIN i FRESET THE POINTER 
; RETURN 


Meecha ge oe ming cones nae meaty ge oy: pcg nnn 
TWARE SWITCH REGISTER CHANGE ROUTINE. 
spor rane IS ENTERED FROM THE Lig HANDLER 
; HSERVICE Us! TEST FOR CHANGE IN SOF 
od cy OPER ATING IN TTY INTER T 
SSWREG, SWR 


WILL 
TWARE St Santen REGISTER TRAP 
THE SOFT-SHR SELECTED 


PEMAKE IT 7-BIT Ascll 
HIS 17 A CONTROL-<¢ 
bP hor’ But GTCIN THE TTY QUEUE 


5 RR HARE EE RHE EE EEE ER REE ER EEE EE EEE EERE EEE EERE 
IS PASSED TO THIS POINT FROM EITHER ne TTY eee SERVICE 
OR_FROM 3 SOFTWARE SW ance REGISTER 


RAP CALL, AS A RESULT OF 
TWARE Sui TCH REGISTER BEI BEING SELECTED. 
$3 RUNNING IN 
>BRANCH IF YES 
CLEAR CONTROL-G oF STACK 
*:FLUSH THE TTY I UE 


QUE 
;;DISABLE TTY KEYBOARD INTERRUPTS 
3;9ET INTERRUPT MODE INDICATOR 


;;ECHO THE CONTROL-G (1G) 
35 TYPE CURRENT ge EN tm 


;SAVE SWREG FOR TYPEOUT 
0 TYPE--OCTAL ASCIICALL DIGITS) 
;;PROMPT FOR SWR 
;;CLEAR COUNTER 
33 THE NEW 
;CHAR THERE? 
443 NOT TRY AGAIN 
3;PICK UP CHAR 


;;MAKE IT 7-BIT ASCII 


ioe IT A_CONTROL-U? 
H IF 


AN 
YES, ECHO CONTROL-U (tU) 
3; IGNORE PREVIOUS INPUT 

PteT® S TRY IT AGAIN 





$204 ‘ ATHIS ROUTINE WILL INPUT A STRING FROM THE T 
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DZRJEA. CMB “NOv-76 18:49 TTY INPUT ROUTINE 
14 0744 021627 o0001S5 108: MP (SP, 915 31S IT A, <cR>? 
3123 peor ed rahe a 16$ ::BRANCH IF NO 
3151 0609752 5768 oo0004 ist (SP) pom IT THE FIRST CHAR? 
ates Peer eR 166 gc9002 120152 MOV $i8e) asue 3; SAVE Hef si 
ae Gore leo HER ae RE 
atee penece 19430 aot=07 000001 OnPs SINTAG, #1 HEC E-ENABLE Try Keb. INTERRUPTS? 
9157 061004 001003 BNE S$ s BRANCH I 
9158 061006 012777 000100 120130 MOV #100, I$TKS : RE-ENABLE WY KBD INTERRUPTS 
$159 061014 o00002 15$: RTI >: RETURN 
®160 061016 004737 057600 16$: JSR PC, $TYPEC 35 ECHO CHAR 
9161 Ob 1082 021627 O00060 CMP (SP), #60 CHAR < 0? 
9162 061026 O0e420 BLT 18% : BRANCH IF YES 
9163 061030 O2i627 000067 CMP (SP), #67 CHAR > 
9164 061034 003015 BGT 1 i 5 BRANC H es YES 
9165 061036 O427265 O00060 BIC #60, (SP)+ >:STRIP-OFF ASCII 
9166 O61042 00576 o00002 _ TST 2(SP) *:1S THIS THE FIRST CHAR 
9167 OS1046 001403 BEQ 17 ::BRANCH IF YES 
9168 061059 006316 (SP) NO, SHIFT PRESENT 
9169 061052 006316 ASL (SP) 2 OVER TO MAKE 
9170 O61054 006316 ASL (SP) 33--ROOM FOR NEW ONE 
9171 061056 O0S266 ooD002 17$: INC 2tSP) *KEEP COUNT OF CH 
9172 061062 OS6516 177776 BIS -2(SP), (SP) 33ST IN NEW CHAR 
9173 O61065 0007 7 }3GET THE NE 
9174 061070 104401 001206 183: TYPE SQUES *: TYPE ?<CR)<LF> 
$175 061074 000720 BR 20$ SIMULATE CONTROL-U 
9176 -DSABL LSB 
3178 
91793 iTHIS ROUTINE MILL INPUT A SINGLE CHARACTER FRON TE TIYe 
3180 :ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 
| 9182 i ROCHR ;;GET A CHARACTER FROM THE QUEUE 
9183 2 x RETURN HERE >: CHARACTER IS ON 
| g184 te *tWITH PARITY BIT STRIPPED OFF 
9186 . 
| 9187 081076 011646 SROCHR: MOV (SP), -(SP) ; PUSH DOWN THE PC AND 
9188 061100 O16666 o00004 oDD0002 MOV 4(SP} ,2(SP) *T 
9189 061106 O0S066 O00004 CLR 4(SP) :GET READY FOR A CHARACTER 
| 8190 Obllle ooSo46 CLR -(SP) ssPUT NEW PS ON STACK 
9191 061114 012746 061122 MOV #64, -(SP) ;3PUT NE W PC ON STACK 
| §192 061120 o00002 RTI *:POP NEW PC AND PS 
9193 Oblle2 64S: 
| 9194 Obll22 005737 o60322 1S: TST STKCNT ;;WAIT ON A CHARACTER 
9195 061126 001775 BEQ 1$ 
| 9196 061130 005337 0o60322 DEC STKCNT s ;DECRENENT TH THE COUNTER 
8197 061134 117766 177166 OO0004 MOVB OSTKQOUT, 4(SP) HH, 3m ONE ¢ TER 
| 9198 061142 237 INC $1K90 ATE The EON TER 
| 9199 061146 023727 060326 060331 CMP TKOGUT, WSTKGEND’ ; sti T GO OFF OF THE END? 
| $200 061154 001003 BNE F 
| $201 061156 012737 060330 060326 MOV #STKQSRT, STKQOUT’! j pRESET THE POINTER 
S202 061164 cod00e 2s: RTI URN 
i 9203 ate ater rg eri iii 














9205 
a3 
430 
9208 
9209 
St gli 
a2 belize 
$213 061176 
3614 06120 
IS 061 
8516 061206 
$217 051210 
$218 61214 
9319 61216 
$220 061220 
9221 OSlec2 
S222 061230 
3223 Ob1e3%4 
asc Bel sup 
$226 061246 
§227 061250 
3228 Ob1264 
3550 Delses 
$231 061264 
$232 061266 
$233 061274 
9234 061300 
9235 061302 
$236 061306 
9237 061310 
9238 061314 
$239 061316 
9240 061322 
9541 061324 
9242 061326 
$243 061332 
9244 061336 
9545 061340 
S246 061344 
$247 961346 
9248 061352 
9249 061356 
9250 061362 
9251 061364 
$252 061370 
$253 061374 
$254 061376 
9285 061400 
$256 061402 
9257 061410 
061416 
9259 061420 
60 Obl42l 





8 
8 


25% 
NEN 
— OW 
men 


Rg 


SSnssr gases 
SAARC TS 


— 

8 

aS 
SS parents | 


grc22e 


SB RRA EAMES 
BoB roNeRaNSeNoS 


eS 

a a oe 
eee 
o 
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000134 061420 


061420 
177777 
061422 


061420 
061420 


000134 061420 
061420 


o0codes 
061431 
ocod2e 


77777 
001210 


000004 000002 
Ob14e2 00004 


; #CALL: 


6$: 


cs: 


73: 


9$: 


RDLIN 
RETURN HERE 
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RJ?-(SP) 
-(Sp) 
#STTYIN, R3 


#STTYING7, R3 
43 


(SP)+ 
#177, (R3) 


(SP) 
63 
#’\, 95 
9$ 
i-1, (SP) 
R3, SSTTYIN 
4g 
(R3) , 98 
93 


es 
(SP) 
5 


#’\, 95 


(R3) 


tSP) 
#25, (R3) 


SCNTLU 
#22, (R3) 


(R3), 95 


~1(R3) 


;;INPUT_A STRING FROM THE TTY 
FIRST CHARACTER WILL 
;;TERMINATOR WILL BE A BYTE OF 


;;ADDRESS OF 


;;SAVE_R3 
;;CLEAR THE RUBOUT KEY 
:;GET ADDRESS 
;;BUFFER FULL? 


338R I 
-:GO READ ONE CHARACTER FROM THE TTY 
HARACTER 


33GE 
::1S IT A RUBOUT 
;;BR IF _NO 
i318 THIS THE FIRST RUBOUT? 
:: TYPE A BACK SLASH 
3;SET THE RUBOUT KEY 
UP 


; ;BACKUP BY ONE 
339TACK EMPTY? 


;;BR_IF YES 
;;SETUP TO TYPEOUT THE DELETED CHAR. 


YPE 
::G0 READ ANOTHER CHAR. 
;;RUBOUT KEY SET? 


;38R IF NO 
3; TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
3321S CHARACTER A CTRL U? 


3B N 
3; TYPE_A CONTROL “U" 


: : BRANCH 

t:CLEAR THE CHARACTER 
::TYPE A "CR" & “LE™ 

::TYPE THE INPUT STRING 
3360 PICKUP ANOTHER CHACTER 


PTCLEGR THE BUFFER AND LOOP 
tFECHO THE CHARACTER 


;;CHECK FOR RETUR 
;;LOOP_IF NOT RETURN 
;;CLEAR RETURN (THe 15) 
3; TYPE A LINE FEED 


;;CLEAN RUBOUT KEY FROM THE STACK 


3R 
;;ADJUST THE STACK AND PUT ADDRESS OF TH 
as FIRST ASCII CHARACTER ON IT 


; ;RETURN 
;;STORAGE FOR ASCII CHAR. TO TYPE 


3; TERMINATOR 





BE ON THE STACK 
0’S 
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DZRIEA.CMB =" O2=NOV-76 18:49 TTY INPUT ROUTINE 


$261 Ob142e 000097 STTYIN: .BLKB 7 ;;RESERVE 7 SYTES FOR TTY INPUT 
Seb2 061431 136 OO06525 O00012 SCNTLU: .ASCIZ /tu/<15><12 S;CONTROL “U" 
9263 pet aae sda 3 SOis Oy SCNTLG: .ASCIZ /tG/<15><le> CONTROL a_i 
$264 pelos o3eued pate OSlle7 S$MSWR: .ASCIZ <15><12>/SWR = 


9265 
$266 061454 020040 ew, 020127 SMNEW: .ASCIZ / NEW = 7 


9268 661466 . .EVEN 
3269 -SBTTL REAGAN OCTAL NUMBER FROM THE TTY 
9271 © KKLFLKEAX KLEE KHL ELE BH EL HEELS SKE EE EE EE EE EEE EEERERH SER KEE KEES EEEES 
367 pi ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
9274 xTHE : PUT UT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
eS Pah OD'atrs Coated etait ie cbs fae ccert hnere e 
a ETHER BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
9379 1x RDOCT sREAD AN OCTAL NUMBER 
9289 tx RETURN HERE TOW ORDER BITS ARE ON TOP OF THE STACK 
9281 1% HIGH ORDER BITS ARE IN S$HIOCT 
e583 061466 O11646 SRDOCT: MOV (SP). -(SP) ; PROVIDE SPACE FOR THE 
9384 061470 O16SE6 OO0004 oon002 MOV 4(SP),2(SP) : INPUT NUMBER 
9285 061476 010046 MOV RO, -(5P) PUSH RO ON STACK 
9286 061500 010146 MOV R1’-(SP) PUSH RI ON STACK 
9287 061502 010c46 MOV R2;-(5P) ;;PUSH Re ON STACK 
$288 061504 104411 1S: RDLIN ; SREAD AN ASCIZ LI 
9289 061505 012600 MOV (SP)+,RO 33GET ADDRESS OF 1ST CHARACTER 
9290 061510 010037 061614 MOV RO, SS AND SAVE 
9291 Ob 1514 005001 cLR RL *:CLEAR DATA "WORD 
253 BeiSe0 11204 2$: HOVE {RO)+,~(SP) sgPICKUP THIS CHARACTER 
| 9295 ties 122716 OO00060 cHPB #0, (SP) j;MAKE SURE THIS CHPRACTER 
| €@7 Qelese eerie 000087 CMPB «4°, (SP) ” 
$298 061536 O0c423 BLT ug 
9299 061540 1 ASL RL 5 3#2 
oo ies Sea of " 
9302 peteue Boe ihe ROL Re ni 
9303 061550 006301 ASL RI + 3%8 
9304 061552 006102 ROL R2 
| 9305 061554 042716 177770 BIC #107 (SP) ;;STRIP THE ASCII JUNK 
9306 Ob 1560 062601 ROD (SP P)+,R $300 IN THIS DIGIT 
339 061564 poe? 3 3S: TST (SP)+ :?CLEAN TERMINATOR FROM STACK 
| 9309 061566 O10166 op0D12 MOV Ri, 12(SP) ::SAVE THE RESUL 
| 9310 061572 010237 061624 MOV R2’ SHIOCT 
ee my a Rae SE NR 
| 4313 61602 012600 MOV —«(SP)+°RO {PoP STACK INTO RO 
| 9314 061604 00002 RTI N 
| 9315 061606 005726 4g: TST (SP)+ sHRETUR PARTIAL FROM STACK 
| 16 061610 205010 CLRB (RO) +381 A TERMINATOR 
: 





















17 
18 


ppt 


BERBERS 


OOrrru 
po a 
MoO 


teat cateat sat at ussad at tats 
orue 


eee eel eect ie een tee eee ee ee ee Seen ee 


B 


An 
An 
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betel 


00: 
061616 aa 001206 


000022 
o000¢e 
000022 
000022 


000022 
000022 
o0002e 
000022 
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OCTAL NUMBER FROM THE TTY 


Tye ‘ ;;TYPE UP THRU THE BAD CHAR. 
TYPE SOUES $372 "CR" 8 "LF" 


SHIOCT: .WORD TTT cHGROER BITS GO HERE 
.SBTTL Save AND RESTORE RO-RS ROUTINES 


; RL A eae a lori mon Raat: 


S$: 


* Savrec 
jxuPon PEIURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


seTon— fois} 
+2---(+18) 
+4---R5 

iy +6---R4 


2 4412---RI 
:#4+14---RO 
SSAVREG: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
V R1;-(SP) PUSH R1 ON STACK 
» Mov R2,-(5P) PUSH Re ON STACK 
MOV R3,-(SP) *:PUSH R3 Oli STACK 
MOV RY? -(SP) PUSH R4Y ON STACK 
*MOV RS, -(SP) j PUSH RS ON STACK 
MOV 2etsP),-(SP)  3;SAVE PS OF MAIN FLOW 
MOV ge (SP), (SP) ;;5QVE PC OF MAIN FLOW 


MOV 22(SP),-(SP 


Vv L 
MOV 22(SP),-(SP) ;;SAVE PC OF CALL 


one RO-RS 
;*CA 


* x RESREG 
ina 
mY SHES} GAPING OF aL 
MOV (SP)+,20(5P) ;:RESTORE PC OF MAIN FLOW 
my Geel? cee eat tga" 
MOV (SP)+,R4 ::POP STACK INTO R4 ; 
my (oie He ara In 
MOV (SP)+°RI POP STACK INTO RI 
HOV (SP)+°RO POP STACK INTO RO 


R 
.SBTTL TRAP DECODER 


5 ESE EE EEE EEE EEE EEE EEE EEE 

; ATHIS ROUTING WILL PICKUP THE LOWER A Ly OF THE “TRAP” wi Ma ES 
#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

: x0F THE DESIRED ROUTINE. THEN USING ATH ADDRESS OBTAINED IT WILL 
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Wee 18:4 


a 
si - 


4 Be 
w 


Se RREOR CORE AAP 


REPRE PA LS 
NOU CWO 


PPPPLL LLL LS 
NRRISREV ow 


TRAP DECODER 


:#G0 TO THAT ROUTINE. 


9046 STRAP: MOV RO. -(SP) + SAVE RO 
1660C oo0c02 MoV 2(§P).R0 ::GET TRAP ADDRESS 
40 TST -( 80) ;;BACKUP BY 2 
110¢¢ “OVE (RO), RO GET RIGHT SYTE OF TRAP 
906300 ASL RO :POSITION FOR INDEXING 
DOS O617S& MOV STRPAD(RO),RO 3: INDEX TO TABLE 
900208 RTS RO ::G0 TO ROUTINE 


3; THIS IS USE TO HANDLE THE “GETPRI® MACRO 


E46 STRAP2: MOV (SP), (SP) ;;MOVE THE PC DOWN 
Si S665 803084 000002 ey 4(SP>,2(SP) Se Fone Tue pea 


.SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” 


INSTRUCTION. 
; ROUTINE 
061744 STRPAD: .WORD S§TRAP2 
057420 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
057674 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
057650 STYPOS ;3:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 


10 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER 
STYPOS ;;CALL=TYPDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 


0664 SGTSWR ;;CALL=GTSWR  TRAP+6(104406) GET SOFT-SWR SETTING 
060574 SCKSWR ;;CALL=CKSWR  TRAP+7(104407) TEST FOR CHANGE IN SOFT-SUR 
076 SROCHR ;;CALL=ROCHR  TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
&& SROLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
466 SROOCT ;;CALL=RDOCT TRAP+1e(104412) READ AN OCTAL NUMBER FROM 
626 SSAVREG ;;CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 
664 SRESREG ;;CALL=RESREG TRAP+14( 104414) RESTORE RO-RS ROUTINE 


5p SASS ESAESEAE SS ELLLLLLLAAE LEER ALALASLALLALLLALERALAELLAR ALL LALRE 


-SSTTL TELETYPE MESSAGES 
5p RARRREERE REE EREEER EERE EERE EEE REE ERE EREEARE EE EERA EEE EERELEEE 


TITLE: .ASCII <CR><LF><LF>/MAINDEC-11-DZ2RJE-A/<CR><LF> 


1 bette Decco -ASCIZ @RPO4/S/6 QUAL CONTROLLER LOGIC TEST - PART 1a<CR><LF><LF> 
101 1 047117 
Re es a 





A ee TT A rT 


ed 
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DZRJEA.CNB = "O2-NOV-76 19:40 TELETYPE MESSAGES 


$429 062102 d2644O 050040 051101 
9430 062110 Oe0leY 006461 O0S0le 
aaa esti? bis O42412 052116 ENTERA: .ASCIZ <CR><LF>/ENTER ORIVE ADDRESS: / 
$433 besioy 051105 O42e04O O44See 
S434 Obeis2 O4eSe& O40440 042104 
S43S O62i40 94 051S2e3 Ode007e 
S436 062146 
3437 Oost 111 QS3116 046101 ADRERR: .ASCIZ /INVALID ADORESS/<CR><LF> 
9438 1S4 O42111 O4O44O 042104 
S439 Obelb2e O4eSee 051523 
S440 062170 000 
S441 062171 015 OS0012 OS1117 PORTAIS: .ASCIZ <CR><LF>/PORT A ADDRESS IS: / 
062176 O2e0le% 020101 042101 
Obe204 051104 051505 d20le3 
O6eel2 051511 020072 090 
O6e217 O15 OS001e 051117 PORTBIS: .ASCIZ <CR><LF>/PORT 8 ADDRESS IS: / 
Oedie4 020102 O4e101 
051104 051505 d2012e3 
051511 Od2007e 090 
015 pete 051531 NOCLOCK: .ASCIZ <CR><LF>/SYSTEM MUST HAVE 'L’ OR °P’ CLOCK/<CR><LF><LF> 
O42Se4 020115 O05eS15 
0S2le3 aig a 053101 
Oe0i0S 46047 Oe0047 
teen O2e3440 023520 
1 047514 045503 
005015 000012 
le OSe116 051105 TESTNO: .ASCIZ <LF>/ENTER TEST #: / 
051 Oe01e4 


a 
c 
5 


BADNO: .ASCIZ /INVALID TEST NUMBER/<CR><LF> 


2 


OS1117 TSTERR: .ASCIZ / ERRORS/<CR><LF> 
2510 ADDRIS: .ASCIZ <CR><LF><LF>/THE PRESENT ADDRESS OF THE RH11 ‘RPCS1) IS: / 


feat 
Coos 


= 
? 


ESSN See UES 


lat ules 


ae 
a 


el NTRH11: .ASCIZ <LF>/ENTER NEW RH11 ADDRESS: / 


Ee 
e 


g8 TITTiTiTittiiititittititiititititititiiitititiiitititi¢iiticiie) 


-SBTTL TEST ERROR MESSAGES 
5 A AEA ge a A a a a A AE HE EA RHE ERE 


Pit SPREE PRRBR A Se saia naa pices es Laie, 
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CMB 3 O2-NOV-76 18:49 TEST ERROR MESSAGES 
9485 lie? 047117 020107 EM: ~ASCIZ /WRONG DRIVE TYPE/ 
Ce a BE IY Be 
eues Ob2Se2 OS4S24 O04, 
9489 062527 104 O44S2e O4eSe6 ENe: -ASCIZ /DRIVE NOT ON LINE/ 
9490 062534 O47040 OS5el17 4744 
9491 het 020116 O44514 O42516 
aes 000 
9494 062551 123 051105 O40S11 EM3: -ASCIZ /SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 
S495 020114 052516 041115 ; 
S496 051105 051040 pavess 
397 De0i04 O441e4 047522 
3498 O43SeS5 020110 O40S05 
S499 044103 OS0040 051117 
“9S00 O201e4 047516 Oe0le4 
9501 O441e4 020105 O40Se3 
9502 042515 
SS04 104 O42Se& EM: -ASCIZ /DRIVE NOT SEIZED BY PORT’ 
90S 047040 O0Se117 OS1440 
SS06 O4450S O4eS3e 020104 
$S07 O54S0e OSO0040 051117 
9508 000124 
210 Oelie? 047117 020107 EMS: -ASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
$511 OSele3 O0S2101 051525 
Sle OS1440 042505 020116 
9513 O54502 OSe040 O4eS10 
9514 1440 O44S0S 
9515 OS0040 OS111 
=i 
9518 O42Se2 O44S07 celts EMG: -ASCIZ /REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE bAS SEIZED/ 
$519 051105 041440 ii 


- 


Fa 
ge 
z 


re 
2 ee 


2h2 
Se 
RBS 


EN?: -ASCIZ /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 


ee ES TT 


SUR aR Soe RAEN 


SHOUD BOCEUSCNON Gacocer Rover BREN 
apanys ae 


4 
11 

04 

li2 


R 
N 
: ee 
~ 
wi - 
- 
— 


EM10: .ASCIZ /REGISTER CONTENTS WRONG/ 


2 
8 
2 
: 


1 
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O2-NOV-76 


E14 


“\ 
V4 
tia) 
e 
w 
bea 
wo 
ul 
Qa 
. 
ual 
- 
«x 
Yo 
al 
Qa 
= 
~ 
oO 
= 
ot 
Qa 
Le 
ta 
oe 
ge 
oO 
ae 
4 
tad 
> 
p= 
me 
a 
w 
— 
a 
= | 
oa 
ge 
— 
z= 
Oo 
Yo 
~ 


/ORIVE NOT SEIZED BY DRIVE CLEAR COMMAND/ 


-ASCIZ 
-ASCIZ 


TEST ERROR MESSAGES 


EMI: 
EMle: 


—e iy Gaen ae Bae 
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Oe-NOV-76 18:49 


OMS PSRRD 


set ke hae) nO 4 4 4 oe 


/RERDIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
/ATTN BIT WRONG AFTER TIMEOUT - REGUEST NOT SET/ 


“VOLUME VALID SET ON THE WRONG PORT/ 


ASCIZ 
-ASCIZ 
ASCIZ 


EM13 
EM14: 
EMIS 


O4O EM16: .ASCIZ /ATTN BIT WRONG AFTER RELEASE - REQUEST SET/ 


= 
ai 
me 


q Heian Giiaa ieaalie! aotatie 
at “osltad betas “Eatiaed Miata 


= - Badaaas Guseen Gaaceaen sass 


Lace ea enn TINE 


sass sosee 


NO-11-DORJE-A 
CNB 
1 





i a ee ee a ee es me eo 0 ee re ew eet 


en eee ee ee 





~“ 
tu 
~ - 
“ Qa 2 ‘. 
- ua ~ 
ta) Q ta 
-" ¢ ra w 
TY) ~ w 
S 3 = uw w 
© oO b+ a 
z= m oe oO 
— 
ts eS z= & S 
3 « é3 x 
> o ge ond = 
~ la oa z= om | a ~ 
“4 a u - So 4 = 
ta) ' - =z yw a tw 
oo Lean ta - ta > 
a uh - — - a ms 
= = co] a * oO 
| vy - = ta tu 
cu —J be > Oo 
- ta) cz & _ tJ 
ee a Oo Qa w 
oo P= Qe a « 
_ ia tal la) a ta 
a a ig 
w & = — me iva 
i a a ty — 
! S| x rv) Qa 2 
T= <4 = rT) 
—F 86 i a z = 
ug - SI n= a 5 
— a tla fo ] 
~- z= w 4 — uw 
fe) = w 
ta) uJ FY Oo fe 
= > > > w tal 
- on) ha ry J 
rr) = a a - 
ao “. NN ~ ~ “XN 
Pr 
w ™ N ™N ™N ™N ™N 
lal ~« oo ee — — i" 
z= 2 oO Qo oO oO o 
wm w wm w w w 
3 xz Pe ce re a « « 
Qe 
Qe 
ta 
ee 
L ood “~ oOo — tw Lhd ] 
rt = Ae a = ) 
- tas tas Lvv) 


secesukd Glomabes arecad Uarlets Has Gees 
Gssaese Mavicams aalease latseitet Ereans ne 
"Teli dicta! auetice “teniaea (mies aetice. 
abastdad Saausiay Guasaay GSisseses Gosasss assasass 
Fo 


SSIRSTARTIRSAREESSRC ORIN IANNNITOSOTORIOTOSS PaRREES 
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ry 


i 
8 
& 
F 


NO-11-D2RJE-A 
OZRIEA. CNB 





a i ee et a ee ee 


} 


rathalek E-A, ee CORTE RR, OGIC TEST “Tee eAal Cpa RAL L00) O2-NOV-76 18:42 PAGE 175 


9653 064205 124 046511 O47505 EM2S:  .HSCIZ /TIMEOUT ONE-SHOT DID NOT RETRIGGER/ 
9654 Ob4ele OSeleS O4744O O42516 
9655 O642e0 0514 pater 020124 
ees ussS 1 7516 
4 1e4 Q4eSe2e 051124 
on Ob4e42 043511 O4eSO7 O000lee 
$660 064250 o51408 OS3111 O20105 EmMeb: .ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 
9651 064256 16 Oe0le4 047111 
9662 064264 047040 051124 
9663 O64272 046101 O40440 052106 
9664 064300 051105 051040 046105 
9665 064306 O4050S O4eSe3 026440 
9665 064314 051040 OS0S0S O4eSeS 
9667 O6432e2 OSeles O47040 O0Se117 
ore 064330 051440 O0S2i0S 080 
9670 064 1511 EMe7:  .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
Si ES ode BES BIL 
9672 064350 047117 Oe0107 043101 
9673 064356 Oe0ie2 OYeSee 
$674 064364 042514 051501 020105 
9675 064372 O441e4 051046 
9676 O64400 OS5050S O4eSeS OSel2e3 
are 064406 051440 O0Se105 000 
9679 064413 104 O44Se2 O42Se& EM30: .ASCIZ /DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL/ 
D644e0 O51440 ees O4eS3e 
9681 O644e6 020104 051040 
9682 O64434 046105 O40S0S O4eS23 
9683 O6444e O41440 046517 040515 
9684 O64450 O42116 O44440 051523 
9685 O54456 eSThe 020104 044127 
9686 O64464 047105 O4e040 O44See 
9687 Ob447e O4eSe6 O4444O 020116 
9688 064500 O4e516 OS2el2e5 o40See 
Fag 064506 000114 
9691 peri? Lio heat e 105 EM31: .ASCIZ /DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 
S632 O6451 lil 
9693 O645e4 051124 O46101 O40440 
9694 064532 frie 051105 051040 
9695 064540 1 G51040 O4eS2e3 
$2 fe ie “ig ot 
oq Oa Oe 
$700 O6456S 101 052124 020116 EM32: .ASCIZ /ATTN BIT WRONG AFTER RECALIBRATE COMMAND/ 
9701 O64572 es thd 051127 
9702 06400 04711 1 pa 
9703 O425e4 Oe0lce OeSee 
9704 14 040503 044514 051102 
e708 0S 047503 
9708 


: 
= 
z 
88 


EM33: .ASCIZ /DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE ORIVE SEIZED/ 


Qe 





LT TS NE SE NE DS NE EN 


Gentéa-ens"O2-NOvere 18:4 
os2se4 


9715 


SASS 
20O~3IO” 


a 


Can SUS MTORE SS Sea Oe ACTH IRA SUR SEENON 


eta 2c) 
x 
SEs 
a 


To 
2 
eee 
Oo~ © 
z 
ees 
R 


eee 
¥ 

Sie 

SRE 
8 


Ses 
124 


a 
B 
ae 
ru 


: 


O441e7 O46111 020105 
eense 051104 US3111 020105 

O42Se3 055111 O4210S 
065042 000 
065043 124 O46511 047505 EN3S: 
O6S50S0 OSeleS OY 042516 
peas 051440 047510 poole 
Sor ies fee Buh 
065100 G201e4 044507 
065106 cles 051105 40440 
065114 G41 0S150S 000123 
O6Si22 O44Se4 O42515 OSeS17 ENM36: 
065130 Oe01e% 040510 Oe0le3 
065136 04751 124 eke 
065144 lige ay 
065152 411 Q4451 
065160 020116 Oe00be O42Se3 
065166 047503 O4e116 000123 
065174 051104 053111 10S &M37: 
O6Se02 051511 O47040 047117 |. 
mesic ci 044530 
SoG foe bun fie 

111 051440 1 
052101 047124 O41040 EMYO: 


g 
8 
g 
8 


t 
| 





OGIC TEST -_PART 


OS EM34: 
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TEST ERROR MESSAGES 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





/DRIVE RETURNED TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED/ 


/TIMECUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/ 


“TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 


/ORIVE IS NON-EXISTENT (*NED’ BIT SET)/ 


/ATTN BIT FOR PORT NOT RESET BY MASSBUS CLEAR/ 
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D2RJEA.CNB Oe-NOV-76 18:49 TEST ERROR MESSAGES 


065314 051101 000 
9767 065317 124 046511 GY7SO0S EM41:  .ASCIZ /TIMEQUT CLEARED THE ATTENTION BIT/ 


065324 OSeles 
$2. 110 att, 052040 
ie REX bie 
1 ili 000 


065361 1 
Tie ONeely Osei2 


ane 


2 
2 
& 
2 
s 


EM42: .ASCIZ /DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATTN BIT WRITTEN/ 


5 
PRERERE 
peste 

é 

Hi 


2526 ENY3: .ASCIZ /DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN/ 


# 
is 
8 
o 
Sh 
<£o 


cited 
ee 


eee 
Ran 
pat 
es 


i! 
BE 
Rs 
on 


EM44: .ASCIZ /WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 


R 
4 
iy 


= 
Ga 
o 


2 
Bey 
2 
4 


a 
gu 
ae 

e 


zh 

b 

on 
EPP RGN 2R 


EM45: .ASCIZ @CONTROLLER SELECT SWITCH ON DRIVE NOT IN ’A/B’Q 


as — 
Ur | 

2 

“ 

ra 

be 

N 


FULL Pi GRPRARPRReRCnctnc incre SSSR BRRSR Cr 
f 
z 
=) 2 
S R BAS 
N 8 


BIRR? RARIR 
Zevon his 


— 
— 
-_ 
_ 

NO 


: 
: 
: 


EM46: .ASCIZ /CAN’T ACCESS DRIVE THROUGH EITHER PORT/ 


% 
i 
o 
8 


WONTULW--O 
RR 
3 
ie 
8 
PREP 
55 
PRROR 
=i 


g 
~ 
i=] 

$3 


a 
Ros 
8 
nN 


Peafeatestatastestestectested 
: 
£ 


2b = bb bh FSH 


EM47: .ASCIZ /ATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/ 


S 
& 
y 
e 
3 
y 
fs 
= 


ee eR A A ES 
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DZRJEA.CMB 8 O2-NOV-76 18:4 TEST ERROR MESSAGES 


9821 065734 an} 020124 pale 
e538 Bizliy Qe0i67 3 
9824 lee 04 117 
9825 065764 G4144O 042514 051101 
9826 O4210S 041040 020131 
9827 940515 051523 OSeS02 
$828 066006 O20le3 O47111 OSelll 
9829 066014 000 
9831 066015 101 OSele4 O20116 EMSO: .ASCIZ /ATTN BIT FOR OPPOSITE PORT CLEARED SY MASSBUS INIT/ 
9832 O660e2 O44S0e Oe0le4 047506 
9833 066030 Oe0lee 050117 047520 
9834 066036 gaees O42Se4 OS0040 
9835 066044 051117 Oe0le4 
9836 O660S2 O40S0S O4eSee 020104 
9837 066060 O4644O 051501 
9838 066066 O4ile3 051525 044440 
9839 066074 O44516 900124 
9841 066100 052101 047124 O41040 EMS1: .ASCIZ /ATTN BIT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 
9842 066106 OSell1 O41440 O4eS14 
9843 066114 051101 O4e105 041040 
$844 O66le2e O20121 040515 051523 
3845 fopl s OSeS0e 0201 7111 
3846 136 OSe111 4 051104 
9847 066144 053111 O2010S 047111 
9848 066152 O47040 OSeS0S 051124 
9849 066160 046101 000 
98S 1 1 1 0 EMS2: .ASCIZ /THE ATTN BIT IS SET AFTER TIMEOUT WITH NO REQUEST & ’ERR’ SET/ 
gece e670 oseley Ge0ile ovede 
9853 066176 Oe0le4 051511 051440 
9854 066204 052105 O4044O 052106 . 
9855 O66el2 051105 O0S5e040 poeotd 
9856 066220 047505 pecite 

| 9857 O66ee OSelli 020110 047516 
9858 066234 051040 050505 042525 
9859 O66e4%2 OS2123 Oe3040 Oe3440 
9860 O66eS0 (051105 OesS2e OS1440 

aoek O66eS6 052105 000 
9863 066261 103 047101 OS2047 EMS3: .ASCIZ /CAN’T READ THE ATTN BIT FROM THE OPPOSITE’ PORT/ 
$864 O66e66 051040 020104 

/ 9865 O66e74 O4412e4 020105 052101 
8866 066302 ag 041040 OSel11 
9867 066310 O43040 O47See O0e0115 

| $868 066316 pat 105 047447 

: $869 O6632e4 0501 1517 O0Se2111 

| 9870 066332 023505 O0S0040 051117 

| 9871 066340 000124 

| 9873 4 O51501 EMS4: .ASCIZ /RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 

| $74 Beess Gabios by7eos Diesels 

| 9875 066355 047101 Oe0104 OteSee 

9876 066364 047503 047107 055111 

| 





| 
| 


1 
DZRJEA.CMB Oe-NOV-76 18:49 TEST ERROR MESSAGES 


9877 O66372 042105 O53440 042510 
066400 peotie S11 OSeSe3 
066405 O4el 1040 020131 

S16 042523 

11 020107 

000 


pos ne 
= 
PRL 
ee 
or 
ge 
for 


6511 O4750S EMSS: .ASCIZ /TIMEOUT ONE-SHOT IS LESS THAN SOO MS/ 


= 

io 

RAR 
fu Lroeuirore 
ow oe 


Bee 
aa : 


Eee 
? 
Be 
R 
g 


z 
RR 


z 8 


EMS6: .ASCIZ /RH11 DIDN’T RESPOND TO ADDRESSING’ 


fu 
R 
a 
io 
S 
r 


NMO 
- 
_— 
8 
Oo 
~- 
8 


“ 
DH1: -ASCIZ /TEST & ERR PC PORT # REG ADR CONTENTS/ 


ee 
SeSRu 
8 
£ 


PEEL Cee rere PeMeees evil ws 
3 
a2 
25 3 


DH3: -ASCIZ /TEST # ERR PC REG ADR PORT A PORT B/ 


a8 
S85 
RBR 
GReeny 


4 PRERERF 
outset 
2aR 
Fagg 

: 


i Galea 


-ASCII 7 SEIZE ERROR/<CR><LF> 


‘BD DLBLD.D BLD D.D 


te 
WONMUL£CW-O 


= 


—C— 
— 


020124 -ASCIZ /TEST # ERR PC PORT # PORT & REG ADR GOOD BAD/ 


—-— CD 
oe 
S25 

ero 
Oo 
ea 
tw 
£Wwo 


oO 
_— 


ESOS SOTSNES 
. 


REBRRRBR 
5 


—Tu 


DHS: -ASCIZ /TEST # ERR PC PORT # REG ADR GOOD BAD/ 


mn 
A 
oO 
= 
2 


i DUAL CONTRLR LOGIC TEST -_PART 1 MACY! grt 1006) O2-NOV-76 18:42 PAGE 179 
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TEST ERROR MESSAGES 


DZRJEA.CMB O2-NOV-76 18:40 


9933 067014 43 uUse5'IS OSiiee 
: Bis Bie Geis ae 


wines 
SAGARA ERAS 
FSHERSR 
PRERERE 
VB ines 
Satin thet 
RERRRRR 
sree 
RERERR 
— —£ 
S553RS5 


g 
pe 
2 
2 
te 
= 
S 
® 
Oo 


021440 
020122 
047520 


042101 
0S2116 

000 
020040 
020040 


ee 
Rese 
2 
ues 
SOuReuS 
GESRBe 


g 
e 
: 
cee 


g 
o 
t— 4 
eae 
AR A 
aN FR 


RR 
28 
292 
xi 


8 
a 
se : 
ie 


oe 


Ga 


g 
$ 


? 


eR 
SS 
RP 
i 

£W 


Bees 
ereneee 
| FERERIES 
PER 
oe 
R ds 
S Rs 
: 


2 
R 
25 
R 


9986 021 020040 
Fe th 067466 047520 OSelee Oel440 





DH?: 


DH11: 


DH13: 


DHe2e: 





-ASCII 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 












/ ’ RELSNG ERROR/<CR><LF> 


/TEST # ERR PC PORT # PORT # REG ADR GOOD BAD/ 


/TEST # ERR PC PORT & REG ADR CONTENTS/ 


/ SEIZE ERROR/<CR><LF> 


/TEST # ERR PC PORT # PORT # REG ADR CONTENTS/ 


/ RELSNG SEIZE/<CR><LF> 


/TEST # ERR PC PORT & PORT #/ 








Ee a ee So = - . ee ae eT OO OOOO eV 
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DZRJEA.CNB Oe-NOV-76 18:49 TEST ERROR MESSAGES 





9989 067475 O40 O20040 Oe0040 OH23: .HSCII / SEIZE/<CR><LFY 
9990 es 020040 20040 
31 | 40 051440 
7516 044505 00501 





9992 04 5 
9993 067524 O4eSe4 OSele3 Gel440 -ASCIZ /TEST # ERR PC PORT # REG ADR CONTENTS/ 





ee O40 O20040 O20040 DHeb: .ASCII / RELSNG/<CR> <LF> 


124 ath 020124 -ASCIZ /TEST # ERR PC PORT &/ 
e440 OSlice 


Se UnuecROSuE 






067654 O20040 O20040 Oe0040 DH31: .ASCII / RELSNG ROSTNG/<CR><LF> 


4 
o 
3 
aR 
z 
2 
a 
fea om | 
2 
i 


-ASCIZ /TEST & ERR PC PORT # PORT &/ 


= 
st 
BR 
2 
2 
ms 
g 


g 
2 
2 
i 
ge 
a RS 
8 


S888888888 


Dw NOU £wrro 
4 
x 
£ 
2 
Suen Kee 
mf 
as 8 


DH36: .ASCIZ /TEST # ERR PC PORT #/ 


. 
& 
- 
BRBeEe 
SSSRBLBS 
a 
im 


DH42:  .ASCIZ /TEST # ERR PC/ 


bb DP bh 8-2 he bb bh -2 es bh bb 2 Fo hs po ho he 
os 
oO 
_ 






sistas 
f 


pate 
pene 
: 


070021 O Oe20040 O20040 DH44: .ASCIT / RELSNG ERROR/<CR><LF> 
G7o08e 920040 0800 


BE 


-ASCIZ /TEST # ERR PC PORT # PORT &/ 


SRREBR 


047520 OS2iz2 O21440 7 4 
O40 DHS: .ASCII / PORT @ PORT B/<CR><LF> 


88888 
208 


py ome os 


b> b+ b+ 9: 0-2 bb eh — 
QWwrure 


11 
050040 051117 Oe0le4 


88 
= 


en ee oe ee ee ee = « -- - --- ee ee 


| 
| 
| 
| 


tea 
18047 
10048 
10049 


Saag aeeae deeennenee anne 


eee iad 


23 


SS889S89099S0995009S9 0990000000000 0000000000 


8 
2 


—- 
oO 
oO 
wo 
w 


Ssssss 
SRBSRR 


za 
Fle 


0701 
070200 


gsesss 
8 


2 
3 
rm 


RBG 


hop 


888888 
tw 
2 


8 8888888 888888 


ro he Ce hh 


SSSaESEE SE EESETES 
BUPeP PPE Vey Eee Se 
S88 


gs 
88 


DZ2RJEA.CMB O2-NOV-76 18:49 


a See eee Oe Soe ed oe od oo coos 
SF RTONTeD Loororn 
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TEST ERROR MESSAGES 


1 -ASC 
Te 
051040 
029040 
3 
124 DHSS: .ASCIZ 
051122 
40 
020043 
Bac eee 
46101 
vial’, 
O42101 OHS6: .ASCIZ 
001234 OT1: - WORD 
000000 
lige DT3: . WORD 
000000 
001234 DTS: - WORD 
001126 
001240 OT6: . WORD 
000000 
001236 DT?7: - WORD 
001124 
001236 OT13:  .WORD 
001126 
001236 OT2e: .WORD 
001236 OTe3:  .WORD 
000000 
001236 OT31: .WORD 
001236 OT36: .WORD 
001234 OT37: .WORD 
000000 OT42:  .WORD 
001170 OT46: .WORD 
001240 OTS4:  .WORD 
001236 OTSS: .WORD 
OTS6:  .WORD 
000 DF: BYTE 


/TEST ®@ ERR PC RPDS! RPDSI/ 


/TEST # ERR PC PORT & TIMEOUT VALUE (IN MS)/ 


/$RPADR/ 


TSTNUM, SERRPC, PTNBR, SBDADR, SBDDAT , 0 
TSTNUM, SERRPC, SBDADR, SGDDAT, SBDDAT, 0 
TSTNUM, SERRPC, PTNBR, SBDADR, SGDDAT , SBDDAT , 0 


TSTNUM, SERRPC, OPPRT, SBDADR, SBDDAT, 0 
TSTNUM, SERRPC, SEIZPT,PTNBR, SBDADR, SGDDAT , $BDDAT,O 


TSTNUM, SERRPC, SEIZPT ,PTNBR, SBDADR, SBDDAT , 0 


TSTNUM, SERRPC, SEIZPT,PTNBR,O 

TSTNUM, SERRPC, SEIZPT , SBDADR, S$BDDAT , 0 
TSTNUM, SERRPC, SEIZPT, OPPRT,O 

TSTNUM, SERRPC, SEIZPT,O 

TSTNUM, SERRPC, PTNBR,O 


TSTNUM, SERRPC ,O 
TSTNUM, SERRPC, STMP2, STMP3,O 


TSTNUM, SERRPC, OPPRT, SE{ZPT,O 
TSTNUM, SERRPC, SEIZPT, TIME,O 
SRPADR, 0 
0,0,0,0,0 











:§ 


oy 
<o--9- Fe 


QOO0O0OO0000 
+0 40-0 0 pop ep pepepae- « 


ET 


qn 
WOVTN LOM OOBIEAL who 


0-+ b-* b-- B+ 8-2 & 2p = 6+ 9-29 1 + 92 9-90 


QOOKoOOVOVO0000D 
he a ot a eo 


0 + b+ b+ 0+ 8 = = b= 8 b= & = = F< 0 -- 6-2 OO & 2 2 B= = 2 0-2 - & «2 H-2 2 § -0 « 0-0 2 H+ § 2h 2H H of -2 H+ HP -2H > 


OOOOOOOOOOOOOVGOOOVOOVHOAOVVIOORBONOOOHo 
ee ee ee 2 oe 0 a = Os 2 ba 0 0-2 2 Bs be B= B= 0s = Ws 8 8-0 We 


PALO 6S5TFHESH“SSBURRESH 





sDORE=A, DURL CONTRLR LOGIC TEST = PART 1 MACY22 27(1006) O@-NOV-76 18:42 PAGE 183 


CMS C2-NOv-7§ 18:49 TEST ERROR MESSAGES 

0705S7 0 000 000 OFS: -BYTE 90,0,0,0,0,0 
O70S6e2 Be 000 COC i 
O7OSE5 O00 090 00D OF?: -BYTE 0,0,0,0,0,0,0 

70870 ia $990 So0 

ives 

70S74 O08 000 000 OF31 -BYTE 0,0,0,0 
070577 O00 _ 
070608 005 0o9 CSO OF36: .BYTE 0,0,0 

O00 viaie CF4e: .BYTE 9,0 

970605 O50 0090 OOO OFSS: .BYTE O,0,0,1 
070610 901 
970611 500 OFSE: .BYTE 0 


5 PRRERRARERRALEREER EEE EEEEEEARESERE EAA EA ERR EE ALES EER EERE ESE EES 
-SB8TTL CONSTANTS, TABLES, ETC - 


& 


gs . 5 REPSSLELSSSLELSLELELELSLLELSLE LALA LSE RLLALAAARELA LA LALA RSAALELES 
¢3 sTABLE OF TEST STARTING ADDRESSES 

2s 12 090307 TSTADR: .WORD STI ;STARTING ADORESS OF TEST 1 
se Geis tears ie Tete {STATING fObeess OF TEST 2 
28 970620 007470 “HORD T STARTING SS OF TEST 4 
29 70622 O10626 “WORD TSTS :STARTING ADDRESS OF TEST 5 
| Groeee pieres ond Tere SS TPRTING ADDRESS OF TEET § 
obese eat “HOR TSTIO + eTARTING AppaEee OF TEST 10 
070632 014366 “WORD TST :STARTING ADDRESS OF TEST 11 
070634 015010 “WORD TST12 :STARTING ADDRESS OF TEST le 
670536 016366 WORD TST13 *STARTING ADDRESS OF TEST 13 
070640 017744 “WORD TST14 * STARTING ROORESS OF TEST 14 
070642 Oel246 “WORD STIS : STARTING OF TEST 15 
070644 “WORD TST! s START NG ADDRESS OF TEST 16 
0706 19 “WORD TST : START S OF TEST 17 
ees 76 “WORD  TS5T20 :STARTING ADORESS OF TEST 20 
070652 "WORD © TSTel :STARTING ADDRESS OF TEST 21 
O70G 026744 “WORD Tete sSTART NG OF TEST 22 
OrOeEs Batt “WORD TeTSa SR TARTING ADDRESS OF TEST Sa 
4 . TST : STARTING OF TEST 25 
ras Ble tes Teg HetaINe Alen OF ar 
070670 peeeen “WORD  TST30 : STARTING RODRESS OF TEST 5 
72 037250 “WORD TST31 * STARTING SS OF TEST 31 
74 O4051 “WORD TST32 *STARTING ADDRESS OF TEST 32 
7% O41 “WORD TST33 >STARTING ADDRESS OF TEST :33 
o4 “WORD  TST34 :STARTING ADDRESS OF TEST 34 
044130 TST 35 : STARTING SS OF TEST 35 
744 “WORD TST3 : STARTING SS OF TEST 36 
079706 “WORD  TST3 : STARTING SS OF TEST 37 
070710 o4es4e2 “WORD  TSTHO :STARTING ADDRESS OF TEST 40 





ae eee ee 












"O2-NOV-76 18:49 CONSTANTS, TABLES, ETC 





10157 o70712 o47524 WORD = TST4! sSTARTING ADDRESS OF TEST 41 
ibtee Gsorid oeilse "WORD = TSTHe :STARTING ADDRESS OF TEST 42 
10159 970716 O52540 “WORD = TSTH3 :STARTING ADDRESS OF TEST 42 
10150 pes422 "WORD ««TST4Y {STARTING ADDRESS OF TEST 44 
19161 Gravee 054310 "WORD «-TSTHS :STARTING ADDRESS OF TEST 45 
Sige Oro7ed Ossett "WORD © TSTHB :STARTING ADDRESS OF TEST 46 
15184 SATTENTION BIT TABLE 
10186 970726 05: ATABIT: .BYTE 1 sATTENTION BIT FOR DRIVE O 
10167 O707e7 902 "BYTE 2 ZATTENTION BIT FOR DRIVE 1 
Iiea O7o7s0 O04 “BYTE SATTENTION BIT FOR DRIVE 2 
{5169 O707321 O10 "BYTE 10 ZATTENTION BIT FOR ORIVE 3 
10170 3 80s Ca "BYTE 20 ZATTENTION SIT FOR DRIVE 4 
10171 O70733 OM “BYTE SATTENTION BIT FOR DRIVE 5 
10172 100 "BYTE 100 tATTENTION BIT FOR DRIVE 6 
10173 O70738 a "BYTE 200 SATTENTION BIT FOR DRIVE 7 
10175 070736 cO0046 MAXTN: .WORD  §TN- ;MAXIMUM TEST NUMBER 

ra 
10177 ocoog1 END 
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OCRIEAR. CNS 


MO-11-DIRJE-A, DUAL CONTR 


DZRIEA. CNB D2-NOV-7§ 18:49 
ABS = 000200 13848 
ac. = 000040 14198 
ACU = 100000 13738 
ADORIS 062374 2969 
AORERR 062147 1996 
ROE = 001000 12908 
AsR1 O0i2e32 13608 
ATA = 190000 12778 
3088 

3332 

3565 

4063 

4YO4E 

4384 

4561 

4964 

fo34 

6199 

6570 

7209 

7513 

8173 

ATABIT 070726 2021 
‘ATO = 000001 13108 
{ATL = 0000Ge l3lls 
ATe = 000004 l3les 
1 @T3 = 000010 13138 
AaT4 = OnnNen 13148 
/ ATS = 000040 13158 
| @T6 = 900100 13168 
| AT? = 000200 12178 
/Al& = OOO400 12088 
'@17 = 001000 12098 
| BRONO O62334 20S4 
| BAI = 000010 le2bs 
| BITO = 000001 11828 
' BITOO = 000001 11728 
Heiges ig 
| BITOS = 1 11698 
| BITOY = verre 11688 
: BITOS = GOO004D 11678 
ott = 000100 11668 
| BITO7 = 11658 
 BITOS = 11648 
| BITOS = 001000 11638 
| BIT1 = 11818 
| BIT1IO = ll6é2e8 
' BITI1 = ll61s8 
| BITle = 01 11608 
| BITI3 = 11598 
, BIT15 = 11578 
,BIT2 = 11808 
BITS = 000010 11798 
BIT4 = 900020 11788 
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wR LOGIC TEST - 
74 CROSS REFERENCE TABLE -- USER SYMBOLS 


d 


oe 
Os 0 0 2 ph he 
Lule IaIoO fo 


a Se 


& 
o 





i a eo nen a er ee re eee om 


| 
| 
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OZRIEA. CNB O2-NOV-76 18:49 CROSS REFERENCE TABLE -- USER SYMBOLS 
BITS = 11778 
BiTe = 900100 ieee 
BI = 000200 11758 
BITS = O00400 1174s 
BITS = 001000 11738 
BPTVEC= 000014 11538 : 
re 
CKCLK hy 2026 2039 86108 
CKCLK1 OS6514 8610 85138 
CKCLKe OSES5S5 8620 8 
CKCLK3 OSE566 8618 
CKERR O01244 SéSe 2l1e9% el42e 2144 2150 2163% 2165 2174 2187 2191% 2204% 22128 
ece7# He 22578 2259% 22728 2815% 2823% 2827% 2840 Hee 2855*%  e867% 
* e994" 3006 3019 3021% 4% 3046s # * 3e41% 3254s 
3369% 3382% 3386% 3399% * 3665* 3669% 3682% 3695% 3708% 37128 * * 
3869%  3873% * 3899 3916% 3929% 4 rt 
4096 4109% 4173% 4186% 442e40# 4eS3% 4255 4260% 4273% 4275 4297% 4310% 4374# 
4387% ay cy 447 2% 4yS38% 4551s 4910% 
4927% 940# 5103# 107% Sleds Se S268 S4O4# S417%  SSbe# 5579 
le 5S 5766 S932% P * 6051 6307 6320% 
S4ie#  b64eS# 6Seee 6528% 6536% 6542% 6555* 6614# * 6708% 6710 
# 6733% 6737# 6745* 6864# 68778 687 6894% 6902# 6906% 6914% 7311# 7324# 
+ 7459% «867472% «= 74808 )=— 7493% )=—7713% )=—7721% = 77300 7% 7927% 
7935% 7952 79618 7969% 8292% 8302 83l2e#  8320% 8457%  8465# 
8467 8477# 8485e 8487 
CKSWR = 104407 8753 94068 
CLOCK OSE&576 8614 86348 
CLR = 900040 leess §8e2l4é 2167 3628 3892 4090 4291 4S31 6713 532 
CR = 0060i5 10978 15508 68876 8886 9419 9423 9432 9437 S441 9445 T4435 3459 3463 
46S 9917 9340 9962 9977 sss 10000 10009 10028 £10040: 
CRLF = 000200 10988 8847 gees 
CSF = 900002 13608 13788 
cSu ss =«~«O00010 13628 13808 
DCK = 100000 12968 
CCL = 000100 14208 14298 
py = 14268 
DOISP = 11048 1526 1966 
DEL os 12678 
DFF2D = 12638 
OF 070552 161 1617 1 1 1736 174 829 1836 1864 1878 1906 100998 
OF SI 670574 1 1544 ta tees 1871 191 1dibee 
rs 070600 16/3 1738 oli the 1751 1773 1794 1801 1808 1815 1822 101088 
bre aes e3 te 1659 1680 1687 1787 1885 1892 1899 101018 
DFSS 070605 1920 6101108 
07061 1927 iois® 
1631 16 101038 
DH1 1608 1615 
Bh ee 
Bee eS be ie 
DHe6 eee 100008 
DH3 066615 lé2e2 99108 
DH31 067654 1778 100098 
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A.CM8 Oe2-NOV-76 
067753 


me 


070273 
r. per bes 
001142 
000174 
DLT = 100000 
DL64 = 000020 
ae = 000001 
= 000400 
DRQ = 004000 
DRY = 000200 
DSWR = 177570 
OTE = 016000 
DTSy = 000200 
DT00 = 90000! 
DTOi = 000002 
DTSe = OO0004 
OTO3 = 000010 
OTO4Y = 000020 
DTS = OOOO4O 
Bre = 
Brie . eevee 
1 
Bris Srbaod 
| DT2e2 070422 
| DTe3 070434 
, OT3 070316 
Be 
T 
Brae Breas 
ae 070510 
Brey Beoeee 
Bree aroee 
Bre vba 
017 070364 


49 


13248 


i 


1651 


1720 
100258 


1765 


1693 


1749 


1890 


1706 
8715% 


1700 


MACY11 27(1006) 
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1771 


9932s 


1764 
8737% 


1905 
1898 
1877 
1814 
1821 


100698 


1707 


O2-NOV-76 18:42 PAGE 188 
MBOLS 


1792 


99408 


1006S 
10077% 


10082 


100868 
10088% 


1765 


1799 


100748 





1806 1813 «1820 86100218 


2831 2871 3010 3050 

3739 3877 =—_- 3920 4125 
$069 $136 40 5286 5389 S435 
5959 $990 604 6065 6096 6191 
7509 «7636 «= 7667 )=—s(s 7850s 7881 1 


aaladachaincieectsdbanbeisnaeipanidiiindidaitintien aimanamsammainien 


ne = seen ene ee 2 ee ee ee ee oe 


ee 
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peattare opto oe tesu5 CROSS REFERENCE TABLE 





R SYMBOLS 

DVA = 004000 12588 
BCH = 000100 1g878 
Tvecs GeosD 11 zt 1951  1952% 
1 cb 1607 94858 _ 
EMIO © GB3113 i656 «95408 
EM11 063143 1663 95468 
SS ne 
Emig eased 1684 «95748 
EMIS 063427 1691 95818 
EM16 053506 1688 $908 
EN17 063561 17 95998 
EN2 062527 1619 94898 
EM2O © 063640 1712 Bs 
EMe1 063720 1719 «96178 
EM22 0063773 1726 i 
EMc3 6 OBYOED Cs 1733 368 
EMoY =O 4126 1740 «96448 
EMeS O64 1748 «= «96538 
EMS O64 1756 4 
EM? 064335 1763 «96708 
ENS 062551 1621 94948 
EM30 «= -OB4413 1770 96798 
EM31  O64510 1777 96918 
EM32 9 OB4565 1784 © 97008 
EM33 54636 1791 97088 
EM34 064740 1798 = «97208 
EM3S 065043 1805 97338 
EM36 © O65 122 igi2 97428 
EM37 065174 1819 97508 
EM 1628 95048 
EMYD 2 1826 - 97588 
EM41 17 1833 97678 
EMYS 5361 1840 97748 
EMS ? 1847 97858 
EM44 = 65524 1854 97948 
EMYS 065601 1861 98038 
EM4E  O65660 1868 98128 
EM? 065727 1875 98008 
EMS 1635 95108 
EMSO -OBEDI5 1882 98318 
EMS1 066100 1889 6 S$8418 
EMS 066163 189 98518 
EMS3 © Ob6261 1903 98638 
EMSY  Ob6342 1910 98738 
EMSS 066435 1917 98848 
EMS& © O6E502 1924 98928 
EME © Obe732 1g42 95188 

063038 1649 95308 
ENTERA DESI 1991 94328 
ERR = 40000 12768 6311 6513 
ERRVEC= OOOD04 1iess 1963 1954 1975 © Bb10# ble GeADe Bbage BBL © BRERH gba B87 
EXEC  O0eb02 2027 20 2liS 2313 e550 e788 2967 3193 3288 3431 3511 3602 

Hl, Yale 44d 9583711 He S081 5199948) S501 5890876 


6155 
6998 6 7135s 7e7S—iH#2s 75817795 —s799B8——s«CB LS Sts«éSPNP 
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xT! Fsuge | OP 

T10 = eet 13438 

Te = 000002 1o41le 

ExT20 = 000020 13448 

EXT4 = 000004 13428 

EXT4O = 000040 134S8 

FEN = 000200 13668 

FER = 000020 1285 

FNTe2 = 010000 14028 2862 3041 

Fl 2 12538 

Fe = 000004 12548 

i = 000010 1eSS8 

FY = 000020 12568 

FS = 000040 12578 

GNS = £##eee UJ ye af 8580 9398 9399 9400 9401 9402 9404 9406 9407 9408 9409 

GO = 000001 12528 

GRV = 000010 12658 

GTSWR = 104406 1986 9404s 

HCE = 000200 12888 

HCI = 002000 14008 

HCRC = 000400 12898 

HT = 000011 10958 884s 8286 

IRE = 002000 12918 

IE = 000100 12068 

ILF = 000001 12818 

ILR = 000002 1282 

IOTVEC= 000020 11908 1949% 1950% 

IR = 000100 

IXE = 004000 13888 

KYBCTL 001274 15778 e04ex e059* eile 2116* 2310 2314" 2547 essix 2785 2789% 2964 2968% 
3140 3144% 3285 3e89% 3428 3432% 3508 35lex 3599 3603% 3803 3807% 4008 
401ex 4209 4213% 4408 4412x 4586 4590% 4708 4712% 4838 484ex S018 SCeex 
5196 Se00% S345 S349% 5498 5S0e¢e 5687 S691*% $873 5877 6152 6156% 6249 
6253% 6451 G455% 6664% 6829 £833% 6995 6999% 7132 7136% 7272 7276% 
a. coeae 7578 7582% 7792 7796% 7995 7999% 98109 8113% 98239 8243%  s8404 

LF = 000012 10968 15518 q 9423 94 943 9445 guyg 9453 
9463 10009 10028 

LST -# 002000 12728 

MAXTN 070736 e0S2 «86101758 

MCLK = 000002 13018 

MCPE = 020000 lells 

| MHS = 001000 13688 13868 

MINX = COOO04 13028 

MOH = 13348 

MOL =0Ql 12748 8=62231 
3179 3324 
4326 4630 
sS4e S594 
6766 6935 


er a ee = oe ee 


ee 
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mB CROSS REFERENCE TABLE -- USER SYMBOL 
MSTCK = 000010 13038 
MWR = OO0O4O 13058 
MXF = 001000 13338 
NBA = 100000 13368 
NED = O1 1D368 2135 ««2139«2S&SOié1GOD 
NEN issce 
NORTA = OOO0DI ee ee cusp 6 oee1 ea?) BGaHYSHOO13.s3119 «3208 
Aah" igi | Scee— S08 $885 SHR SIG 5 64166 «= Hfee 
sig «sot «Seed SCBOB «OBL «Ss Neve uae yage 
sive S31?sS3e2sSuBRCS*<“<«‘dCOCSSKGSOC«*SBEDSCSGSSCSGGO 
Se a ST B4ol «gues «eee «GG? )=SBEO2SsCeORe «7572 BSE 
cir] 70% «7100 Zee, Zea 7aae 7397 7eN]7eNG ea 7703 798 © 7817 
Bet. abce BOBS OBGSe bieoe «ice «| becosbscye «ara SHES 
NOCLOC 062245 3038 S448 
NOSEIZ O01S4e iS66e 
NTRHII 3073 
OCYL = 100000 Tuoze | 14328 
OFREV = 000200 13958 
OF 100 = 000004 13058 
OF200 = 000010 13668 
OF25 = OOCODI 13438 
gF800 = ononep 13978 
OFSO = 13948 
OFBO0 = OD0040 13488 
OPE = O20000 14308 
OPT = 020000 i2a48 
OPPRT 001240 1Ee38 2340" «257K «3164 3209 3619% 3623* 40SSe 428Ge 4617" 4739% 4eE7* SO47s 
c3575 E376 GeoGx Eigse Gauge bosue E277» Gu7dx G6eee G857% 7024s 7161s 7605s 
7519s B2eBs Baa3* 10072 10084 10083 
oR = 000200 12308 
PAR = 000010 15848 
PAT = 000020 15375 
PGE = 002000 15538 
PaN = 001000 isis 2216 
250s 3010 
5373 
E5un 286 
Bove = BObe 
7881 8081 
PIP = 020000 12758 
PIRO = 177772 liozs 
PIRQVE 000240 11968 
PLU = O20000 13728 13898 
PORTA 001224 i578 | 19938 
5311 2378 
5603 3604 
si58 S54 
3334 3386 
3658 364 
3769 (3761 
3073 4oB2 
qiss 4233 
4430 a? 


4628 «444 
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93 6936 6955 
im isl Ties 7 
7352 «0 7353'~««s« 7362 0S ss 7381 02S 73833 
7591 7602 7603 12 3 
97 7805 7819 7823 
? 7901 7903 791i 008 
gi43 144 8iSb 8157 8166 
83 8340 59s B36 1 
8526 42s: 8S 34 
PORTAI 062171 2004 441s 
PORTB  OOle 15588 19984 1999% 2000%  2003% 
2338—=i« 8 234. 2366 2367 
2588 2657 2bbB SbF 
3974 2982 460-3004 ~«=s_«:3005 
3213. 3239 0 3263 3264 
3367 «3368 «= 346103472373 
3617 i906 CC 18 
| 834 3871 3872 914 
yos7 «4058 «= «4eS S430 44 
| u2B4«4PG2si‘<d317—s—i‘wd3Bs«#3I 
us2p«uSS3i‘i«dHSSH Ss“ 
| 4734. 4735 «40«4749—s«75D—s«*7EB 
4 ues3(isB9S)ss4B9RsiéSY 
cong «S072 -«Ss«SO73.=Ss«S083.~=Ss«S105 
| 5223 «5237 S238 Be 
5376 5398 5399 40 5451 
5600 S601 630 564 
5786 5787 5792 5805S "5806 
S921 5947 5952 5953 5965 
6087 6088 6101 6il2 
6289 6290 6369 63 
6504 657 g 6602 
| 1 ete S4 ss bBSS 83 
6970 7012 702% #7048 7049 
7217 7218 7236 7289 7326 
43 7501 7514 7525 
7640 7658 59 
7827 7838 #7843 7844 
8028 8029 30 go4¥2 8043 
BiB2 8201 8256 8265 S266 
a4 35 8476 8495 8495 
| PORTBI 062217 2010 SH4se 
| PORTC 001230 15598 2017% 2018%  2019% 
PRE = 000020 14188 
PRO = 000000 11198 
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USER SYMBOLS 


5348 e $963 5973 
6058 6059 oor 6072 
626: ef4 62 ret 
649 6567 6586 58 
6 6757 6758 #6767 


5819 $830 1 49 
5966 5995 7 
6113. +6131 38616 6196 
6 6400 6410 6411 

77 =6—688BOséG7723 
6884 6904 6905  69e6 
7069s 7 7081 7099 















FRI = 000040 
PRe = 0001 
PR3 = 4 
PRY = 

PRS = 000240 
PR& = 000300 
PR? = 000346 
Re = 177776 
PSEL = 002000 
PSU = 000001 
PSW = 177776 
PTNBR 001234 


RELOK = 000001 


RESREG= 104414 
| RESVEC= 000010 


ee ee ee 
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CROSS REFERENCE TABLE -=- USER SYMBOLS 






1100 = 2035* = 2320% 2391 ec408% 2557% 2628%  264S% 
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EMR 9004 12838 
BRS = BODBIE 15548 S904 6180x 7617% 79831x 8022 8032 8136 8146 


RPBA = 000004 

RPCA = = Poorse 14618 2373 97 = 2610 siaq 

RPCC 0036 3 

RPCS1 = 000000 14478 c808% e843 sore tad 2987% 3022 a053 tn 3172# 3317%  344Ss aes" 





RPCSe = 000010 14518 e2lebs 
re 2280* 


SEE ata tae eh eee 
i = Mie Bae 
Grurm 
eet 
fcr 
a 
uw 
Oo 
fw 
rm 
o 
Oo 
wo 
re 
™“ 


uw 
5 
ene 
2 
z 


| 760e% 7609 
7805%  7809% 
7898% 7903 
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DZRJEA.CMS -NOV-76 1 CROSS REFERENCE TABLE -- USER SYMBOLS 
8276% 8330% S8340% se344*e 8356% 8361% 8417% Ss42l*e  8430% 
gPDA fasos «8398 Supe aes 2709 
= 
RPDS = peeegs 14568 
RPDS] = O00Cle2 siege 2128 149 2213 2214 2228 2229 2245 2246 
234 e352 385 2413 2417 2421 2574* 2578 2580 
oo of em ie 
as) a8 3243 3265 oboe REE ee 3353 
gist aie aes 3534 378 354 ag 168 362) 3622 
1 697 3713 714 373 3741 7 38e0% 
3858 3874 3875 3900 3901 3917 3318 1 3945 
4041 4060 4061 4084" 4097 4098 4123 4127 4131 
4241 4242 4261 4262 yosse 4298 4299 4324 4328 
4431 4440 4441 4460 4461 4483 4487 4491 4539 
4604% 4618 4629 4651 4655 4659 4722% 4726% 
4777 4781 4yBSex 48S6% 4866% 4874% 4890 4894 4897 
Wotd 4958 4962 S032e# S036* SO46% SO0S4* 5070 5074 
5109 5134 5138 5142 S210% Sel4*# 5228 5230 5239 
5363% 5377 53793 5388 5433 5437 erat SSi2e 5SS16# 
5563 SS64 os3s 6599 5623 62 5631 Tale 
5730 5752 5753 5784 5788 5791 58l2 5816 582 
5922 5933 5934 5960 5964 5967 S923 59932 5996 
6073 6094 6098 6102 6166% 6170% 6189 6193 6197 
6308 6309 6341 6342 6362 6366 70 6413 6414 
6497 6510 6511 6543 6544 6S64 6568 6572 6615 
6687% 6726 6727 6764 6768 6772 6843% 6847%  6856% 
6941 7009 7013% 7023% #7047 7050 7062 7066 7070 
| 7187 7199 7203 7207 7286% 7290% 7305 7312 7313 
7367 7434% 7438% 7453 7460 7461 7481 7482 7507 
7604% 7637 7641 7644 7665 7669 7673 7806% 7810% 
7879 7883 7887 8009 98013% 98020 8031% 8049 0S3 
814S5* 8163 8167 8171 B2eS3* 8257% 8267% 8275% 8293 
8341 8345 8418 B8422% 843e% B440% B4S8 S459 8478 

RPDT = O00 14588 2175 2176 2192 2193 2377 2477 2614 2714 

RPEC] = 000044 14658 2369 2517 2606 2754 

RPECe = 000046 14668 2368 2S22 2605 2759 
RPER] = 000014 14538 2380 cxbe 2617 2699 4u023% 4O24* 4028* 4O29% Y4eo4x 4e2S*e 4229% 4230% 

4403 Y4o4x 4Y4e8x Y4e9% 6282% 6327 6328 6484% 6529 530 6693% 6738 6739 
6862% 6907 6908 7606% 7616% 7620* 7714 7715 7820% 7830% 7834* 7928 3 ' 
80i7%* 8018% 8131% 8132% 

RPER2 = 000040 1638 5a 2487 2612 2724 7607% 7615* 7621% 7731 7732 7821% 7829% 7835% 
| RPER3 = 000042 jens 14 2S5i2 2607 2749 7608% 7614% 7622* 7748 7749 7822e% 7828%  7836# 
| RPLA = 000020 14S5# 2376 2482 261 
| RPMR = 000024 14578 2379 
| RPOF = 000032 14608 2374 
| RPSN = 000030 14598 2279 
RPWC = 000002 14488 2081 

SAVREG= 104413 94108 
isc = 100000 12138 
{$C1 = 000100 13468 
; $CiO0 = 001000 13498 
/SCe = 000200 134748 
| SCe0 = 002000 13508 
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y ¢s 
IZPT 


O2-NOV-76 18:49 


bbz 


SKI = 040000 
STACK = 001100 


Betpmesncaen &e 


838 
ete 


eeppeug 
WNSWue-O 


Sis i 8 Sd 3 


4-4 
mm 
4 
_— 
oO 


AAA 
mmmmm 
WNL WWIII 
4444444 
See 
NOU CW 


se 


Ba 


Be 


Sree: 


2588 
SBa852 


2336% 2573% 2803%  2982% 


~ (OO ed eel cel eee coal oe ceed ee coed od oe ed ed ed oe ee ond oe ony 
OE EEE LIM TW WWI WIWUTWI WWII) 
p Ay N@OWO-MVMWO— MW £WUIt SIMw 


Bs be bb bh b= + bh be hae ee 
— 
@o 
“NUT 
Sk 8E 


© 


_ 
Pat Wt at 


eee At 


Ys eer ara 
WUWIMUIO 


4595 471 

6838 7004 
1973* 1984 
9106 9129 


----— =| = - 


3162 
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3307% 440% 2520% 
O4S* 223% aa5e ‘SS2eS* S714"  S899# 
: * 7603% 


10084" 10588" 


2319 25 


hs ny. 3149 
4847 S02 5205 
7141 7281 7429 


ee8S 8676 8694 


—_—-- -— 
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| DERIEA.CNB  C2-NOV-7E 18:49 CROSS REFERENCE TASLE -- USER SYMBOLS 
TEST2 oo4s42 2316 e317 23198 , 
Testeo C24? S714 4715s 178 
TESTE: O2e5S36 ales sind 48479 
TesTee OerDls coy S025 Sue Te 
Tesies O20176 E202 630-5205 
TESTE4 031205 5351 §352 53548 
TESTES O32216 ssay Ss «Ss0S—StsC*SS; 
ep ies Rt 
é 
TESTS D06142 BsS3 BSS asses 
TESTSO O36626 6158 6159 61618 
TEST31 Oa73ze2 $255 6255 62588 
Testa 40562 B457 6458 64608 
TEST33 O420e2 BEE SsC«dSEB? GEE 
TESTS O431le BS pees 
BS Baeeas oisg | A53SAaLS 
| TESTS ) A eS eS 
| TESTHO 046614 7426 «7427 74293 
TEST4! OY 7584 7585 75878 
Rat Os1204 rag 7789780 
Teena pasar 8115 Brie 81188 
| TESTHS O54 8245 B24  Be4gs 
| teers 010700 3° e374 oes 
TEE plete ae ists 
1 Tt } 8 232% 2401 2565* 2629 2638 2601s 2900s 3154* 32909% §297% 6489s 
ont peer an Ce rs 
| TINEA 001256 15708 * 2321# 2392% 2394 
| TIMEAM O0l2e2 15728 3% 239% 711 
| TIMEAP 001260 15718 3% paces 2395% 7108 98297 
| TIMER O012e64 15738 204% 2558% 629% 2631 
‘Heep poise leras Sees | Beeee | Setee 72N5 USE 
TES 01272 15768 7OSee at 7110 7192% 7248 ## 7247 
| TKVEC = 11948 9052  90S3* 
| TOLER 055630 2333 2630 86448 
| TPVE = O00064 
| TRAPVE= 000034 11938 1953" 1954* 
‘TR os 1ele8 S766 «2 7728:«=Sss774S—i—i‘i?7HS-Ssi‘7Q!S]Ssia79SQ_~—Cis«é7209:7 
TRKi = 00400 13518 
Ps: ee 
| Teeso s 13558 
| TREY = 13538 
i TRIVECS 14 11888 
TIER Bees eee 
TSTNUM © O01242 este it 6 i 67 10069 10072 #10074 10077 #10089 10082 10084 1008 :0088 
'7ST1 003070 2051 e2lile 10125 
TSTIAA 003064 20368 % 


i 
| 
' 


nome 2 ee ee 2 ee ee 
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Ge-NuVer 


DERIER. OMS 


~ 
7 
bt 


PERERA Re 
o ? 
fons 


ae 


~ 
wy 
rs 
ww 


01foeb 


- aiidddatadaadaAdadAdadddcAdaAddAAdAAaAAaAA BS | 
ttt = 
Swe 


cee BS: 


gabbninag2? EE Coeye 


a ee eee ee oe nee 


' 
| 
| 
{ 
j 
i 
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34278 10132 

35078 10133 

35988 10134 

38028 10135 

40078 10136 

4208@ 10137 

44078 10138 

458Se 10139 

23038 10126 

47078 10140 

48378 10141 

50178 10142 

51958 10143 

Ss44e 10144 

54978 10145 

S686e 10146 

S87e8 10147 

es4és 10127 

61518 i0148 

6248s 10149 

64598 10150 

peas Hite: 

eoave 10183 

7l3ie 10154 

7e7is 10155 

27648 10128 

74198 itts, 

75778 1101S 

7611 7625 77le8 

7708 77318 10158 

7825 7839 3 

73922 739848 101593 

81088 10160 

82388 10161 

84038 10162 

2938 10129 

31398 10130 

3es4e 10131 

13658 13838 

8577 8S84 94028 

1979 133k 1996 2004 2010 2016 2028 2036 2047 2054 2069 2072 2073 
8571 8740 B45 8768 8785S 8787 §730 8792 88U7 88l2 88s0 
gals aoqy 3 9127 9128 9131 9144 g1s5 9174 S222 $228 9233 9237 
924, 924 9245 9248 9252 9317 9319 93988 
2071 8776 9130 93998 

94018 

2007 2013 94008 


ta on 
-o 


SSSI 
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Sonar 
RoReRe Sha ges 


Sigorase 
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SBODAT 001126 





7949 
146% 
73% 

10074 


8760 
8869 


1943 
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BYSS# 
10077 

8878 

1951 
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02-Nov-76 18:49 CROSS REFERENCE TABLE -- USER SYMBOLS 
sors. = 1 15258 1537 
mM = 1S3g8 15398 1SH0e ISHie 1SH2e 15438 
SCNTLG 061436 127 92638 
SCNTLU 05193) aay 9637 28 
1 swe gig 2072 46 gs8S «=SB= s«7B0)= «8768 «=s«787 «Ss «792s«iB12Ssi«éiSL SDE 
9155 ~ @ 9322 
SDBLK 060312 987 9021 298 
056434 7 8565 98sS4e 
TBL. 060302 8380 90258 
SENDAD 056424 1484 85908 98755 
SENOCT 056270 955 85698 
SENULL O56440 g5978 
SEOP 056224 ass7e 
OPCT 056262 195S*# 85668 8570 . 
G 001103 1 8bE6 8692 B8698* 8719 98735* 6760 
SERMAX 001115 15148 1958 2044" 8692 8714* 8719 , 
SERROR 057122 151 67328 
SERRPC OO1116 15158 8742e 8743" 8744 8760 8774 10065 10067 10069 10072 10074 10077 10080 
10082 10084 10088 10090 10091 10093 10095 
SERRTB 001304 16038 8782 
SERRTY 057254 8747-87678 
SERTTL OOllle iSleu 8582 BSR G7HIx 8760 
SESCAP 001200 1448 19S57# ©8713 
SFILLC 001156 15338 8855 
SFILLS O01155 15328 8806 
SGDADR 901120 15168 
SGDDAT 001124 1b188 2139" 213 214k 2isi# 2157 Bible 2170x2181 21ese 2195% 2198 2208s 
216% 2219 P38 22318 2234  e238% 2248% 2251 2255 2263 2265 22708 22798 
Baud" = 2345 * 2354 2358 415% S445 581% 2582  2590% 
95 652% 2819% 2820 28318 2834 * 284% 2849 2853 28718 
2878 # 2935 299g 9 3010 3013 30178  302S* * 
3050% 30S7e 308% 3114 3120 3179® 3209 3215 32088 3231  3235% 3245s 
3248 P 3354 3373" 3376 33808 3390e 3393 3397e 345be 34 
3492 x 3572  3623% * 3633 3656% 3659 3663  3673% 
3676 3680 3699 3702 37068 3716# 3719 37238 3739% 3771 3827% 
38368 3837 1 3860" . 3867% * 3880 3903% 3910%  3920% 
3923 * 38 3975 Wo43* 4046 40SOe 4ooge 4066 4 yidox 4103 
Gid7s 4ieSe 4157 4163 .4177% 4180 4184e 4244s 4247 4oSie 4ep4e 4267 4271s 
4301% y308" 432bk 4 4364 «4978 4381 4 4aeSe# = 444Ge «| -4446 446 3% 
u4ea «47D «48S «4516 4521 4S «SHS = uSUSe «455 9% YSE6e 4621# 
53% u743e 4744 «= «47528 4 u757,«4775% oY 
uB1l 4eBde 4904 4914* 4917 4Geix 4ogle 4 yg3gx 4955" 4 S069% 
S084  SO94# Sidie Sill# S114  Sil6* Siz6e $i67 Si7e Seale Seae * 
5241 M * §317 5322 5380s 5381  5389% 5394 
Syose 5412 541Se 5435 54 N71 5533e 5594 Scuee 5543 Scu7 Scope 5567 
594% M S661 S7eee 5723 5731% 5736  5755% 5783% 
5798 «Sede = 584 S936e 5 5943 5959% 5 5990% De 
6080 * 6127 6132 619i# 6311% 4 «318 
6330% {Gauss 637, Gable babe 6396 GNDe bbe BN19-bugde B513x O516 
6520% * 6540s 6549 65538 6566% 6596 6618% 1 6699% 
6702 670be 6729% 67 6741s 6742 6766% 6797 688% 6871 6875 6996% 
6910% 6911 6935% 6 1 7064 7095 7100 7e0i# 7237 7315% 
318 7 7336% 7343e  73bl¥ 7398 r 7u7ox 74a4" 7497 
7491% * 7540 HS 7habR  7BSL 7b? 7808 7703 777e 7718 773k 7735 
751% 7752 78508 7865 7881" 7912 7917 7931% 7932 7948% 7949  7965* 7966 


s0e%# 8035 #8051 8083 8089 8138% 8149 8165* 8197 8203 : 829% 8297 8316% 
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peattace opens oe Terud CROSS hEFEREN E TABLE -- USER SonBoLg , 
1337 8339 8370 375 B4bls 8462 B848lx S482 eS04* 8535 e8S4O 10067 10069 
T42 OS6414 Q5e78 
TSWR by 91288 9404 
s 1074 
SHIOCT 061524 93108 93218 
SICNT 01104 1509 2060 870S* 8706 98708* 8718 
SINTAG 001135 15238 91e5* 9156 9268 
Si Tens 001114 15138 8744" 8760 28771 
001210 15488 8760 8886 9252 9262 9322 
SLKCSB 001214 15538 8616 
SLKCSR OOlele2 1552 12 617% 
SLKS  O0l220 15558 1 B625% 
scbape Sotise ati 
5011 15108 * 2118% 2216% 2553% 27918 29708 3146x 32918 3434" 3514%  360S% 
3809 4014s 42ls* 44414* 4SG>% 4714* Yad4ue Sous * 5351x 5Sso4x 5693 % 
5158% Se 6457% 6666 6835% 7001 7138% 7278 7426% 4x 7798% 8001 8115 
g2u5e 410% * 711% 8716 98718 
SLPERR 001110 15118 * * 2119% 2317% 4x 27928 29714 3147% 32928 3435  3515% 06% 
3810e 4O1Se 42iee 44lS* 4593% 471S* 4e4Se So25* Seo3* Sasox SS05* 5694%  Seaps 
5159% 6667 6826s 7139% 7279% 7427% 758S% * B80o7%* 
Bll6# 8141 ube 1l# 8712% 8718 
SLPVEC 001216 15548 3 
7} §MAIL = ates U 1977 1984 8711 8750 8839 
: 061443 9128 9264s 
SMXCNT 057120 8709 «87188 
001154 15318 8857 
SNWTST= l 20988 2) 22918 2293 25288 2530 27668 2768 29478 2949 31278 3 32728 
34188 3420 34988 35 35798 3581 37838 3785 39888 41908 4192 
43938 4S738 4575 46958 4818s 0 49988 5000 51798 53288 
cu7ee |S Sob7# S669 58578 S859 61398 6141 62348 6&2 b4368 6438 
66398 6641 6808" 6810 69788 6980 71158 7117 72548 7256 74038 75528 
7554 77668 7768 # #79818 7983 8095# 8097 82178 8219 983828 98384 
SOCNT 060072 8918 8947# 89608 
SOMODE 060074 8913% 8917% e92S* 8936e 89628 
SOVER 057104 8697 8707 87158 
SPASS 001100 15068 2043 8563% e564* 8575 8S97 8703 98719 
'$QUES 001206 15468 8760 9174 9245 9262 9319 9322 
SRDCHR 061076 31878 S407 
SRDDEC= #eeee U 9410 
SROLIN Ob1166 82108 9408 
SRDOCT 061466 92838 9409 
SROSZ = 000007 92038 
SREGAD 001160 15358 
SREGO 001162 15378 
SRpace 031300 fepee 3545 2070 +2077 +2080 209% 410097 
SRPVEC 13hp 15878 
SRTNAD 056436 85968 
SROA = #heeee 412 
SSAVRE 061626 93398 9410 
| SSCOPE 056670 i949 0s BB 748 
SSETUP= 000127 193i8 1948 1949 1951 1953 1955 1956 1957 1959 1981 8561 8675 98733 
| 8755 9065 9070 9071 9101 9268 
| SSTUP = 17777 19318 
i 
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$SVLAD OS70S6 
Havas = 000200 
$SWR = 166000 


49 





16 
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| $TMP4Y 001174 
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4 
4S47% 


je 
4308 
4S64% 


y 
4919% 









Se aie 


ILL 060073 
S4OCAT= a U 
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1487% 
24 









FREE ASRRI 
Ses % 


BRHF RE 


© 


| 
i 
| 


CMB 
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7922 
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ZRIEA. CNB 


MORETA Pt 
MSG 


CROSS REFERENCE TABLE -- MACRO 





os 
be 


£ru@ 
ow 
.o 


x 
SEB 


ies 


Bieta 
N 
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NAMES 


oiae 

41898 
$330 

68078 
7983 
3733 
6185 


3498 
6139 
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5 $123 $179 5194 S218 seS2 S271 $326 5367 SHOl = S420 49 520 
35 6559 583 667 S685 5709 S741 S748 6577 S257 5871 = 895 20) 36 328 
B60 6139 3s 615 173 6182 34 6247 6270 627 684 629¢ 6304 632 633 635 
4 64 6449 9-647 6481 6486 6494 6506 6525 65:9 6559 6609 6639 665 £81 
669 719 €§748 6753 ~# 6808 27 ©6680 so séSB 6317 6922 6978 6 701 026 
? ? 7057 #7105 7115 #7130 7154 #«#$7163 «297167 ~@#867175 713) 7194 sede 7254 
72 ? ? 7308 4973290«=C fs 7348 )=Ss74030—Sts«(744189 7450 (7 74 7496 7576 
; 7790 «7881 )2Sfs 79 095 8107 8210 8214 8217 8237 8261 827 8279 8284 9828 
8326 83 84 425 8437 8444 8449 g84c4 473 8491 Sy 6600 8694 865 
SS rel 87 18 gsss8 40 s«S 965 9101 9116 9179 9203 ? 9322 936 
1 941 4; 83 10117 10121 
SWITCH 10638 4E5S S005 30s SS 59s 6061 7632 7846 
TESTAG 10638 ele! 2319 2556 2973 3437 17 3608 17 4218 «= 4417 
45 471 ? $02 S205. S(—i«idSaS40=ési‘ésEo7)~=ss«CS 96 6161 6460 6669 6838 7004 
7141 7281 7429 #7587 «+#«3$7801 8004 1 8413 
TIMER 10638 2324 i 2797 2976 3150 6283 6485 7029 7037 #7166 £7174 
TRMTRP 93908 
TYPBIN 11978 
YPDEC 11978 S75 ese2 e802 
YPNAM 11978 
TYPNUM 11978 
TYPOCS 11978 2005 2011 
TYPOCT 11978 § §799 9129 





978 62098) = 2291 ese8  e76E—(<éirSZ:—(‘ié‘H?®_—Cie7E—iaICOSSGC(iS'GGC(<é‘i‘i‘CKSC(CiCKECISC (HG 
rf, 4695 4818 4998 179 «6328 «=—s(« S478 Ss« S667 6808 6978 
11 7254 87403 867552 7981 8217 
SET: # 9399 9401 9462 9404 #9406 j$®$j‘9407 
S$SKIP 11978 
° fa 1063 1087 
° 10638 1064 
-SETUPs 10638 1931 
~SWRHI 10638 1075 


0638 8547 
SERRO 10638 8719 
- $RDOC & 
-SREAD 10638 9030 
SSAVE 10638 
-SSCOP 10638 8661 


8963 
-$T 10638 8816 
-STYPO 10638 8886 


- ABS. 070740 000 
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w 
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Lo 
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OQ 
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CONT 
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sre, 


et 


eee oe . 


COl 
PS TOM Paella ane, a 


mrt 
* pull + PUI maa naonaneacaat ++ 


el rt any, 7 
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+e ¢ +? 7.7.4.¢ +7) +4 Pal 
tetsee Ceaserasnanasauaseudnantitensutdnatteedtey uvereevernye 


ry 
lll SSPEEPEES ee ee 33 
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